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Two languages are packaged with the ST — BASIC and I OOD r a ct^ • 

that ^unique S 

BASIC is very similar to the Microsoft BASIC on the IBM PC. 

SStSl? STBAsfJl^ ha R S S0 S e ve ™«sive capabilities. In 
particular, BASIC has a very flexible interface to the GEM fGraohics 

* M ^ ager) ^ to the VDI (Virtual Device Interface) These 
provide a convenient way to make use of many powerful ST features. 


1.1 The special ST BASIC commands 


Below is a short description of the commands unique to ST BASIC. 


FOLLOW, UNFOLLOW 


The fo l low command outputs the value of simple variables when the 

easier 1 to search V ^ ab e chan ^ durin g the program run. This makes it much 
SfJZ programming errors. The UNFOLLOW command turns 

off the output of variable values. The syntax for UNFOLLOW is: 


FOLLOW a, angle %, text $ 

. (other BASIC statements) 
UNFOLLOW text$ 
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BREAK, UNBREAK 

The BREAK and UNBREAK commands are also used for program 
debugging. The BREAK command halts the execution of the program when 
the corresponding line number is reached. At this time the following is 
displayed: 

b nnn 
Br 

The b signifies the BREAK, and nnn is the line number at which the BREAK 
was encountered. Br signifies that you are in break mode. Program 
execution continues if you press the <RETURN> key. 

BASIC is still in the BREAK mode. If the corresponding line number is 
encountered again (in a loop, for example), program execution is halted 
again. You can disable this with the UNBREAK command. Example: 

BREAK 120,512, 2013 
UNBREAK 


TRON, TROFF 

The TRON and TROFF commands are also used for program debugging. 
They may only be used in command mode. 

TRON turns tracing on for the entire program. All line numbers are 
displayed as they are encountered during program execution. 

TRON i- j turns tracing on for a specific range of lines. All line numbers 
with values falling between i and j are displayed as they are encountered 
during program execution. 

TROFF turns off tracing for the entire program. 

TROFF - 1 0 0 turns off tracing for a specified range of lines. 
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TRACE, UNTRACE 

The TRACE and UNTRACE commands are additional commands for 
debugging, similar to TRON and TROFF . But in addition to displaying the 
line number of the statement being executed, the contents of that line are 
also displayed. The syntax is identical to TRON and TROFF. 


BLOAD 

The BLOAD command loads the contents of a file to a particular range of 
memory. You can use the BLOAD command to load machine language 
programs or screen images.The syntax is: " 

BLOAD filename, addr 

Here, filename is the name of the file to be loaded, addr is a memory 
address and is not checked for validity. You are free to load a file to any 
memory location. Remember that if you fail to specify a load address, a fatal 
error will occur. In this case, the contents of the file is loaded to the default 
address 0. This overwrites the important exception vectors and you’ll have 
to reboot the ST. 


BSAVE 

The BSAVE command saves a range of memory to a file. You can use this 
command to save a screen image or a machine language program. 

The syntax is: 

BSAVE filename, addrl, addr2 

filename is the name under which the memory range is to be saved, addrl is 
the starting memory address and addr2 is the number of bytes to be saved. 

Examples: 

BSAVE "screen .bin", &h7 8 000, &h7d00 
BSAVE "mprog.bin", &h7fd00, 768 
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In the first example, the screen contents of the 520 ST screen of are saved to 
the file called screen . bin. In the 1040 ST, the screen memory is located 
at &hf 8000. 

Immediately following screen memory are 768 bytes of unused memory. 
This area may be used for short machine language routines, since it's not 
used by the operating system or BASIC. The second example saves the 
contents of this unused memory area. 


CALL 

There are two ways of calling machine language programs from ST BASIC. 
The first way is to use the CALL command. The parameters for CALL 
specify the address of the desired routine and the values which are to be 
passed to it. The address of the routine must be a variable. 

address = &h7fd00 
CALL address 

address = &h7fd00 
valuel = 33.33 
value2% = 100 
z$ = "test" 

CALL address (vail, val2%, 100, z$, "empty string") 

In the first example the routine is called without parameters. The machine 
language routine may modify all registers. The value of the stack pointer 
must be restored to its value upon entry to the routine. This is because the 
routine itself must be ended with RTS. If the stack pointer is not restored, 
your program will probably crash.. 

The second example demonstrates how parameters are specified in the 
CALL command. The parameters must be enclosed in parentheses and 
separated from each other by commas. All variable types are allowed as 
parameters. The parameters are converted to signed 32-bit integers. 
Therefore a value of 33 is passed through vail. For strings (z$ , "empty 
String") the address of the string is passed, also represented as a 32-bit 
value. 

How can the data be accessed in the machine language program? When the 
machine language program is called, registers A0, A7, and DO are used. A0 
contains the address of the routine. You may think that this is superfluous, 
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because the address of the routine is normally known. You just might be 
surprised. Later we will show how helpful the contents of AO can be. 

Register DO contains the number of values passed. It's contained in the 
lower 16 bits. This value is also very important for some applications, 
especially if the routine can be called with a variable number of parameters’. 
The use of a 16-bit counter is more than sufficient. Such an enormous 
number of parameters cannot be placed in one BASIC line. 

Register A7, the user stack pointer, contains the return address to the 
BASIC interpreter. Additional information is also placed on the stack. For 
example, you can determine the number of parameters in the register Dx 
with the instruction MOVE . w 4 ( SP ) , Dx. 

With the instruction MOVE . L 6 (SP) , Ax you get the start of a table. In 
this table are as many long words (32-bit values) as parameters in the CALL 
command. In these long words are the values or addresses of the strings. 


PEEK 

PEEK is a function that returns the contents of memory. In ST BASIC, 
peek can return 8-bit, 16-bit or 32-bit values. 

Normally PEEK returns a 16-bit value. For example, peek (0) returns the 
contents at the memory locations 0 and 1. The value at memory location 0 
is the low-byte, and the value at memory location 1 is the high byte. 

The command DEF SEG may be used so that subsequent calls to PEEK 
return an 8/16/32-bit value depending on the DEF SEG setup. 

To return a 32-bit value, you can use PEEK in conjunction with the 
DEFDBL declaration. DEFDBL is always used in conjunction with DEF 
SEG, PEEK or POKE. 


POKE 

POKE is the counterpart of peek. The POKE command places a value at a 
specific memory location. In ST BASIC the value may be 8 bits, 16 bits or 
32 bits long. 
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POKE normally places a 16-bit value in memory. POKE &1000, &2468 
will place the hexadecimal value & 68 in memory location & 1 000 and & 2 4 
in memory location & 1 0 0 1 . 

After DEF SEG, subsequent POKE commands place 8/ 16/32-bit values in 
memory. 

Using poke in conjunction with the DEFDBL function places 32-bit values 
in memory. 


DEF SEG 

The DEF SEG command sets the segment address for the commands PEEK 
and POKE. DEF SEG or DEF SEG=0 sets the segment to the physical 
address 0 in memory. This is the default condition after power-up. 

If a value greater than 0 is entered, the segment for peek and POKE is set to 
this address. The following example will clarify this point. To access the 
ST's screen memory you could do the following: 

value = PEEK (&h7f dOO) 

Alternatively, you can set the segment for the desired address. Then the 
address specified for peek and POKE are to be viewed as relative to the 
start of that segment. 

DEF SEG=&h7 f dOO : REM Address following is 
value = PEEK ( 0 ) : REM relative to &7FD00 

Remember that in the first example, the contents of addresses &h7fd00 
and &h7fd01 are returned (16-bit- values). In the second example, the 
contents of address &h7 f dO 0 are returned (8-bit value). 


GOTOXY xpos,ypos 

The GOTOXY command positions the cursor on the screen. An output 
command (PRINT or WRITE) then starts at this location. The cursor 
position specified in this manner also determines the location of the input 
command. 
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The X and Y coordinates are relative to the upper left-hand comer of the 
screen. Constants can also be used in place of the variables, of course. 

Unfortunate^, the GOTOXY command to one of the several defective ST 
BASIC commands. The X position is not evaluated correctly. The specified 
value is (incorrectly) increased by two. This can lead to rather confusing 
results. If, however, one of the scroll bars is clicked after the output, the 
contents of the output window are reprinted and this time in the proper 
positions. You should therefore use caution when working with this 
command. Screen masks cannot be easily constructed at the current time. 

Try this example to see the problem yourself. After the program is finished, 
click the output window scroll box to verify that the updated positions have 
changed. 

10 GOTOXY 10,10: PRINT "Here is position 10,10" 
20 PRINT "1234567890123456789" 

Here is an example using GOTOXY in conjunction with the INPUT 
command: 


GOTOXY x .pos, y.pos : INPUT value 


INKEY$ 

The INKEY$ function reads the keyboard and returns the ASCII value of 
the key pressed. In the current version of ST BASIC, the INKEY $ does not 
work properly. Characters are not read from the keyboard. This is probably 
because of the fact that, before the execution of each command, a test is 
made to see if the keys <CONTROL> and G or <CONTROL> and C are 
pressed. In this case the program is either ended (<CONTROL>C) 
completely or interrupted ( <CONTROL> G). 

However, the internal keyboard buffer is regularly emptied by this test. The 
INKEY $ function is then so fast that during the processing, no new key 
presses appear in the keyboard buffer. The function will then always return 
with no key value. You can use the input $ or the inp function to replace 
the INKEY$ function in many cases, however. We will describe both. 
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INPUTS 

The I NPUT$ function is available only in a few BASIC dialects (such as the 
IBM PC). With this function, one or more characters can be read from the 
keyboard or from a file. The most interesting feature of this command is that 
(almost) no interpretation of control characters is made. The syntax is: 

text$ = INPUTS (10) 

a$ (i) = INPUTS (10, 1) 
or 

a$ (i) = INPUTS (10, #1) 

In the first case, 10 characters are read from the keyboard without 
displaying these keys on the screen. The keys <RETURN>, <ENTER>, 
<CONTROL> G, and <CONTROL> C can be pressed without interrupting 
the input. The only terminating condition besides reaching the specified 
number of characters is the input of <CONTROL> Z . This character, with 
an ASCII value of 26, is usually used in files as the identifier for the end of 
the file. The input of 10 characters is rarely necessary (such as for the 
invisible entry of a password). However, if the number is reduced to one, 
this command becomes a replacement for the following statement which 
does not function correctly in ST BASIC: 

10 a$=INKEY$ : IF 3$=”" then 10: 1 doesn't work on ST 

The special keys of the ST keyboard, the function keys and cursor keys, do 
not return ASCII values. These keys cannot be read with the input$ 
function. 

In the second and third examples, 10 characters are read from a previously 
opened file and placed in a variable. If you work with data records of a set 
length, the otherwise special characters like comma, semicolon, quote, and 
CR (<ENTER> key) can be read without difficulty. For many applications, 
it's also useful for a file to be read character by character. This is possible 
by specifying the number of characters to be 1 as the parameter of the 
INPUT $ function. 
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INP, OUT 

On earlier generation computers with Z-80 or 8080 processors, the INP 
command and the OUT command are often used to address the I/O ports 
hudt into these processors. But since the MC68000 used in the ST has no 
port addressing, we have to figure out what these commands do in the ST 
and what results they yield. ’ 

In the BIOS of the ST there are three function calls with the names 
BCONSTAT , BCONIN, and BCONOUT. Almost all of the system input and 
output to the screen, printer, RS-232 interface, MIDI interface, and 
keyboard processor is performed with these three calls. In assembly 

language, these calls are used with the number of the desired device to be 
accessed. 


The following assignments apply: 

Device/interfarP 

0 Centronics interface/printer 

1 RS-232 interface 

2 Console (keyboard and screen) 

3 MIDI port 

4 Keyboard processor 

These same numbers are used with the INP and OUT commands You can 
therefore address all of the interfaces directly from BASIC. For example 
the command, H ’ 

OUT ( 0 ) , 65 

outputs the value 65 (ASCII value of the letter A) on the printer. You might 
prefer to use the command: 

LPRINT "A" 

Doing so seems to work just as well. But try to send the character lf with 
ASCII value 10 to the printer by means of LPRINT. You will soon notice 
ic" V^ e or more exactly ST BASIC, sends the character sequence 

CR/LF, the ASCII characters 13 and 10 — which is completely unnecessary 
This sequence is not used at all when printing graphics with Epson printers 
and their compatibles. Neither the bit pattern nor the given number of 
graphic bytes agrees with what is expected when this sequence is received. 


11 



Abacus Software 


Atari ST Tricks and Tips 


It gets even worse. Since the ST sends the character sequence CR/LF after 
every 72 characters, we get some really messed up graphics. 


But don't worry. The OUT command will solve the problem in this case 
very nicely. 

Other devices besides the printer can be accessed with the OUT command. 
The other interfaces are also available to us. The RS-232 interface can be 
fully utilized from BASIC. You can also read from the RS-232 port with the 
INP function. With it, a terminal program can be written for the ST in 
BASIC with relatively little effort. 

The inp and OUT commands using device number 2 allow writing of 
BASIC programs under the GEM environment. The entire screen is then 
available. For input, the INP (2) behaves like using the function INPUT $. 
INP ( 2 ) has a decisive advantage, however. The function and cursor keys 
also return unambiguous values and can therefore be read. 


The MIDI interface, both input and output, can be programmed using device 
number 4. Readers with appropriate instruments, such as electronic organs 
or synthesizers, can control their devices with ST BASIC. This is assuming 
that you know the protocol used for MIDI. With this knowledge it is 
relatively simple to control the devices with a BASIC program. 

The last possible device on our list is the keyboard. As you know, the ST 
has an intelligent keyboard. It contains its own processor which reads the 
keys, the mouse and joysticks. In addition, the keyboard processor contains 
a clock. Values can only be sent to the keyboard processor, since the 
answer" is usually discarded by the operating system, inp (4) always 
returns the value 16. 


VARPTR 

varptr is a function that returns an address. A variable or file number is 
passed to the varptr function as the argument: 

OPEN "I" , 1, "xyz .dat" 

? VARPTR (#1) 

In this example we can make no reasonable interpretation of the return 
value. This version of ST BASIC does not correctly support VARPTR using 
a file number. 
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a$ = "TEST" 
ad = VARPTR (a$) 

a = 10 

adr = VARPTR (a) 

In these two examples, the interpretation is relatively simple. Let’s look at 
me rirst C3.se. 


After the VARPTR function is used, the variable ad contains the address of 
the stnng a$. The string descriptor itself consists of six bytes. The first 
byte of the string descriptor contains a flag whose function will be explained 
shortly The second byte in the descriptor specifies the length of the string 
Since the maximum value contained in a single byte is 255, the maximum 
length of a string is 255. The third through sixth bytes contain the address at 
which the stnng itself is located in memory. 

But if you check these values with the example above, you will be amazed 
at the string address. The "address" turns out to be the string itself. All 
strings which are one to four characters long are stored directly in the 
address of the string descriptor. Try changing a$ = "TESTER" and 
check its address. 


This also clarifies the meaning of the flag, the first byte of the descriptor. If 
a zero is entered here, the string is less than five characters — therefore 
placed in the descriptor itself. If the hexadecimal value 10 is entered here, 
however, the contents of positions three through six are the actual memory 
address of the string. 

Using the VARPTR function for numerical variables returns the memory 
address at which the number is to be found. Real numbers are stored in four 
bytes. Integers (such as A%) are stored in two bytes. We will take a closer 
look at integer arrays later, since they are well suited for protecting small 
machine language programs in memory. 


SOUND 

The SOUND command of ST BASIC is quite capable and very easy to use 
The sound chip in the ST is the YM-2149. This IC is compatible to the 
well-known AY-3-8910, which is used in various other computer systems 
(such as MSX computers). This chip offers a broad range of capabilities for 
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creating sounds over three different voices. In addition, an external noise 
source can be combined to allow the creation of special effects (like drums 
or explosions). 

The SOUND command has a maximum of 5 parameters, specified as 
numerical values. The syntax is as follows: 

SOUND voice, volume, note, octave, duration 

The value of voice can be 1, 2, or 3 according to the desired voice. 

The value of volume is 1 and 15; 1 is soft and 15 is full volume. This value 
is stored according to the voice in bits 0-3 of register 8 (voice 1), 9 (voice 
2), or 10 (voice 3). 

The variable note allows values between 1 and 12. Since an octave consists 
of 12 steps, notes can be played directly. 

The octave can be between 1 and 8, meaning that the ST can create sounds 
over eight octaves. 

The duration can accept values between 1 and 255. The duration is 
measured in 20 milliseconds. If you specify a duration of 50, a tone lasting 
about 1 second is produced. 

The following table shows the assignment of notes to numbers for the 
variable note : 

1C 2 C# 3D 

4 D# 5 E 6 F 

7 F# 8 G 9 G# 

10 A 11 A# 12 H 

The concert pitch A (440 Hertz) can be created with the SOUND command: 

SOUND 1,15,10,4,255 

Octave 4 is the one normally designated as octave zero. Smaller octave 
values result in deeper tones; higher values create higher tones. 
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WAVE 


ith the SOUND command alone you can program very nice single-voice 
me odies, but they become more interesting and polyphonic with the WAVE 
command. This command gives us many more sound capabilities. It is also 
harder to understand It took us a lot of work to understand the construction 
and the parameters. For complete understanding, an exact knowledge of the 
hardware construction of the sound chip is useful. 

Like the SOUND command, the WAVE command also has five parameters. 

he rnst parameter is comparable to the voice parameter of the SOUND 
command. With it, the voice that creates the tone can be selected The 
possible values are somewhat different here, however. 

The best way to understand WAVE is to take a closer look at a special 
register in the sound chip. This is register 7, called the multi-function 
register. If bit 0 of register 7 is set, voice 1 is turned off. If bit 1 is set 
voice 2 is turned off. If bit 2 is set, then voice 3 is turned off. A cleared bit 
creates the tone programmed for the voice. 


Bits 3 to 5 are responsible for switching noise to the three voices. Here too 
me function is enabled with a cleared bit, while a set bit turns the sound off 
for the corresponding voice. 

Bits 6 and 7 are responsible for programming the data direction of the two 
universal 8-bit ports integrated into the sound chip.But as these two bits 
have no function m sound creation, we will not discuss them further here. 

The bits 0 to 5 can be manipulated with the first parameter of the wave 
command. If the parameter is viewed as a binary value, the individual bits 
of the parameter have exactly the reverse function. If the value 1 is passed 
as the parameter, bit 0 of register 8 is cleared, causing voice to be turned on. 
AH other bits of register 7 are set, turning all of the other functions off If 
for example, this parameter is 37 (%100101 in binary), voices 1 and 3 are 
turned on and voice 2 is turned off. In addition, the noise source is switched 
into voice 3. If the first parameter is zero, all the voices and noise sources 
are switched off. 


TTie second parameter of WAVE affects three registers of the SOUND chip at 
the same time. These are the registers 8, 9, and 10. Not all bits are affected, 
cmly bit 4. Bit 4 in the three registers named determines if the volume of the 
three voices is affected by the specification of sound (contents of bits 0 to 
3 of the three registers; see SOUND) or through a hardware waveform 
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The hardware waveform is a special feature of the sound chip* By using the 
waveform, the volume of the tone is changed periodically or even just once. 
The waveform offers many possibilities for changing the sound of a tone. 


The second parameter must also be viewed as a binary value. The following 
list shows the meaning of the bits in the WAVE command: 


Bit number 

1 cleared 

1 set 

2 cleared 

2 set 

3 cleared 
3 set 


Function 

volume voice 1 from bits 0-3 reg 8 
volume voice 1 via waveform 
volume voice 2 from bits 0-3 reg 8 
volume voice 2 via waveform 
volume voice 3 from bits 0-3 reg 8 
volume voice 3 via waveform 


The value range is thereby set to 0 through 7. If the value 0 is passed as the 
second parameter, the volume of all three voices is determined by the 
volume given in the SOUND command. For a value of 5, the volume of 
voices 1 and 3 are manipulated by the hardware waveform, while voice 2 
runs via the volume set in bits 0 to 3 of register 9. 

The third parameter of the WAVE command has a close relationship to the 
second parameter. This parameter selects one of the 9 different waveforms. 
The possible values can lies between 0 and 15, but some values create 
identical waveforms. The possible results are difficult to describe with 
words. Accordingly, the values and their corresponding waveforms are 
found in Figure 1. 

The fourth parameter also manipulates registers in the sound chip directly, 
as well as their relationship to the waveform. The sound chip contains two 
8-bit registers whose contents affect the period of the waveforms. The value 
of this parameter ranges from 0 to 65535. The larger the value, the longer 
the period of the waveform. For extremely small values (<1000), the 
waveforms are at such a high frequency that an additional audible frequency 
results. This can be used for various special effects. 

The fifth parameter determines the length of the tone to be created. It is only 
effective in the program mode if another SOUND or WAVE command 
follows. In the direct mode or from the editor, the tone continues until a key 
is pressed, i.e. until the next mouse click. 
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Figure 1 

Programmable Sound Generator Waveforms 
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LINEF 

The LINEF command is the simplest graphic function of ST BASIC. With 
this command, arbitrary points or lines can be drawn on the screen. Four 
parameters are required to specify the starting and ending coordinates of the 
line. A line width of one point is preset. Later we will show how to change 
not only the line width, but also the line pattern and appearance of the 
starting and ending points. 

LINEF 10,10,50,40 

The line is drawn from coordinate 10,10 to coordinate 50,40. 


CIRCLE 

The CIRCLE command is for creating draw circles or arcs on the screen. 
Either three or five parameters are required. Three parameters are required to 
draw simple circles. The first two parameters determine the X and Y 
coordinates of the center of the circle, and the third parameter is the radius in 
screen units. The fourth and fifth parameters are required only to draw arcs. 
These then specify the start and end angle in degrees. Note that the angle is 
specified in tenths of a degree. 

The following command would create a half circle with a radius of 100 
points: 

CIRCLE 320,199,100,0,1800 

Enter this line to see the zero point for the angle specification as well. The 
circle is always drawn counterclockwise from the 3 o’clock position. 

Also, the line width is also set to one pixel for the CIRCLE command. 
We'll show you how to change the line width later. 

You'll notice that the circle isn't really a circle at all. CIRCLE can only draw 
a polygon that approximates the shape of the circle. If you use a radius of 
30 you can see that the resulting shape is not a circle, but an octagon. If you 
need a "real" circle, you have to calculate the values yourself and draw it 
with the LINEF command. 
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PCIRCLE 


The PCIRCLE command also draws a "circle" or arc. The reauired 
parameters are identical to those of the CIRCLE command. This circle 

od S fi ed W1 j h a color or P attem - The c °lor and pattern are set with 
the COLOR command. 


ELLIPSE 

In addition to the circle shape, ST BASIC has a command to draw an ellipse 
or partial ellipse. For this reason the ellipse command has either four or 
six parameters The first two parameters specify the X and Y position of the 
ongin, whde the following two parameters specify the radius of the ellipse 
in , ^ and Y direction. The (optional) parameters 5 and 6 specify the 

angle of a segment to be drawn. These last parameters are the same as for 
the CIRCLE command. 

ELLIPSE 320,200, 100,30, 450,2700 


PELLIPSE 

JS e J P " - 1 ? fr , ont of the name a 8 ain designates that the resulting shape will be 
tilled with the current color and pattem. The parameters are identical to 
those of the ellipse command. 


COLOR 

The COLOR command sets the character color, the color of the fill pattem 
the color of lines drawn with linef, and the pattem used when filling 
screen sections. A total of five parameters are required. 

The first parameter specifies the color for subsequent text output. Only the 
values 0 and 1 are possible with monochrome monitors. If 0 is used as the 
parameter, the text will be "invisible" i.e. in the background color. With a 
color monitor, the value of this parameter depends on the display mode In 
low-resolution mode (320x200), the value range is from 0 to 15.' In 
medium-resolution mode (640x200), the values range from 0 to 3. 
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The second parameter specifies the color for the next PCIRCLE, 
PELLIPSE, and fill command. The values correspond to those of the 
first parameter. 

The third parameter determines the color of the lines drawn. 

The fourth parameter determines the style used when something is filled: 

Value £111 

0 no fill 

1 solid fill 

2 patterns 

3 hatching patterns 

4 user-defined pattern 

Currently, the last pattern (4) is defined as the Atari logo, J I ^ 

The fifth parameter determines the selection of the pattern (0-24) or hatching 
(0-12). If this value is 0, no pattern is drawn, independent of other settings. 


FILL 

The FILL command allows you to fill arbitrary areas. The settings for fill 
are made with the COLOR command. The first two parameters for FILL 
specify the X and Y coordinates of a point within the area to be filled. 

The third parameter is optional. It's a color number representing the screen 
coordinate that limits the boundaries for the filling. If this parameter is 
omitted, then the fill is bounded by any color except die background color. 


FULLW 

This command is one of several commands for manipulating windows. 
With the fullw command, any one of the four windows can be set to 
maximum size. The four windows present in BASIC are accessible via the 
following numbers: 

0 EDIT window 

1 LIST window 

2 OUTPUT window 

3 COMMAND window 
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By entering: 


FULLW 2 


the output window is set to the full available screen area 
windows are covered up by the output window. 


The other three 


CLEARW 


This command clears any of the four windows. It is comparable to the CLS 

n°A^ n i° f Mlcrosoft BASIC, but refers to a special window in ST 
a ASIC. The command, 


CLEARW 2 


clears the output window. The position of the output cursor is not affected 
by this command, so the command GOTOXY 0 , 0 should generally 
follow a CLEARW 2 command. This places the cursor in the upper left 


CLOSEW 

Windows can be closed with the CLOSEW command. They then disappear 
from the screen completely. The numbers of the windows correspond to 
those m the other window instructions. 


OPENW 

With this command, closed windows (CLOSEW) can be opened again. This 
command functions only when at least one other window is open. It appears 
to be an error in this version of ST BASIC. 
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Summary 

This brings us to the end of our description of the special commands of ST 
BASIC. The other commands and functions of ST BASIC are equivalent to 
those in other BASIC dialects. Since there is a great deal of literature 
covering the standard functions and commands, we will not go into them. 

We have intentionally postponed a discussion of two special, very powerful 
commands. They are the GEMSYS and VDISYS commands. But since these 
commands are so complicated and powerful, we have set aside a special 
section for them. You will really be surprised by what you can do with them 
from ST BASIC. 
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1.2 BASIC and GEM 


We ve already seen some of the features that make ST BASIC a verv 
complete implementation of the BASIC language. In addition, ST BASIC 
has commands that allow easy access to the powerful features of GEM. 

GEM, the Graphics Environment Manager, is the visually-oriented user 
interface to the operating system. Rather than typing commands into the 
computer, the user can perform the equivalent of the command by 
manipulating pictures on the screen with the mouse. y 

GEM provides a comprehensive set of services for application programs. If 
an application is written to use these standard services, then it’s possible to 
move that application to any computer that supports GEM. 

2? thiS be S ble? It,s because the ST has a 68000 processor. The 
IBM PC uses an 8088 processor. GEM runs on both the ST and the IBM 

in a high ~ level lan §uage such as C to run on 
the IBM PC with GEM, then it need only be recompiled to run on the ST. 

n practice, small program changes are usually necessary, since 
hardware-specific aspects of the computer may creep into the application. 
GEM C COnCept of a PP llcatlon portability is a very attractive feature of a 

Well now take a closer look at GEM by studying its two main components, 
these are the AES, or Application Environment Services, and the VDI or 
Virtual Device Interface. 


The AES manages the visual features that are characteristic of GEM 
applications: windows, pull-down menus, icons, etc. All of these are 
high-level andcomplex functions which are generally unsuitable for use 
trom BASIC. There are exceptions, however, as we will see shortly. 

The VDI provides the fundamental graphic primitives for displaying text and 
graphics or inputting data from the keyboard or mouse. The VDI is 
subdivided into the GDOS (Graphic Device Operating System) and the 
dp vers. Of particular importance is the device driver. This part of 
GEM is hardware-dependent and must be adapted for each output device. In 
the current release of GEM for the ST, the only available device driver is for 
the display monitor. Additional device drivers will certainly become 
available m time. 
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1.2.1 The VDISYS command 


The VDI performs dozens of different functions. You can use the VDISYS 
command to access these functions from ST BASIC. 

As part of the VDISYS command, several parameters are passed to GEM. 
The parameters consist of five arrays or memory areas in which values are 
stored. The arrays are named CONTRL, INTIN, intout, pts in, 
PTSOUT. These names are reserved variable names is ST BASIC. 
Apparently the authors of ST BASIC found the features of the VDI so 
powerful that they reserved those variable names. The reserved variable 
names represent the address of the arrays, not the array itself. You can see 
the address of the arrays by entering: 

? contrl; intin; intout, ptsin, ptsout 

To be precise, the named arrays are not the actual arrays used by the VDI. 
Rather, the contents of the named arrays are transfered to the VDI. 

Since ST BASIC makes it very convenient to access the array contents, 
using the VDI calls are simple. Here's an example: 

POKE CONTRL , (command number) 

POKE CONTRL+ 2, (number of parameters in ptsin) 

POKE CONTRL+ 4, (number of parameters in ptsout) 

POKE CONTRL+ 6, (number of parameters in intin) 

POKE CONTRL+ 8, (number of parameters in intout) 

POKE CONTRL+IO, (sub-function command number) 

POKE CONTRL+12 , (device handle, between 1 and 10) 

REM 

POKE INTIN , (first parameter) 

POKE INTIN + 2, (second parameter) 

POKE INTIN + 4, (third parameter) 

to 

POKE INTIN + n, (last parameter) 

REM 

POKE PTSIN , (first parameter) 

POKE PTSIN + 2, (second parameter) 

POKE PTSIN + 4, (third parameter) 
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POKE PTSIN + n, (last parameter) 

REM 

VDISYS 

REM 

^veleSts 6 ’ We^ idU H- P^ et , ers m P0KEd ^to the corresponding 
POKF IS™ t 'u S , the ind L vldual el ements are all 16 bits wide, a single 

SEE fn the pokp! 1 TR int< ? ^ e ! ement - This also explains the steps 
or two in the pokes. The elements m the CONTRL array contrt +4 anH 

CONTRL +8 are not POKEd. After the call these these^ements Z P EE Ke d 

The how ma f y parameters were tetumed in intout and ptsout 

The followmg example will make this clearer: UL 

Normally, the mouse cursor is invisible. We can call the VDI to make it 
visible. As previously mentioned, the VDI performs many different 

function rr5ef h “w 0 " “uniquely identified by a functio/code. The 
function code for enabling the mouse cursor is 122. For a complete list and 

Rcfei^nce from^Abacus. Ca “ S S “ the GEM 

The name for function code 122 is SHOW MOUSE. We POKE the function 
code 122 into one element of the CONTRL array. SHOW MOUSE expects 

”n°to P cm?R?V? b £ passed in ^ PTSIN array, so we POKE the value 0 
pokfX Y ; ° ne P arameter 1S expected in the intin array, so we 
POKE the value 1 into CONTRL+6. SHOW MOUSE does not have anv 
subfunctions, so CONTRL+IO is set to zero. y 

CONTRL+12 contains the device handle. When ST BASIC is started this 
element is set to a value of 2 to indicate the screen. Since any value between 

f a L° Wed u° r tbe device handle for out Put to the screen, you do 
" n . h . ave to change this element. For a value between 1 1 and 20 output is 

betwee^ 2 P l °and 30 driver were present). For a value 

^“ t 5,e“ d 0N^^’ Ut ' S Sen ‘ '° 3 Pn " ter - Thcse ' ,he "’ are the 

Sled°mDF Mnn^' ' ^.^terpart to SHOW MOUSE is a function 

MOTTW • E ^9 U u SE ^ 1Ch dlsables the mouse’s cursor. When HIDE 
MOUSE is called, the VDI stores the number of HIDE MOUSE calls in an 

"in one'is^^^^f iS called With a va l^ othenhaVzero 
in INTIN, one is subtracted from the stored number. The cursor does not 
necessarily become visible after the call. 
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If intin has a value of zero, the number of HIDE MOUSE calls is ignored 
and the mouse cursor is enabled regardless. 

The complete example looks like this: 

1 rem 1_2_1 

10 poke contrl,122 

20 poke contrl+2,0 

30 poke contrl+6, 1 

4 0 rem 

50 poke intin, 0 

60 rem 

70 vdisys 

80 rem 

After the call you'll find a value of zero in CONTRL+4 and CONTRL+8. 
This signals that the function has not returned any values in INTOUT or 
PTSOUT arrays. 


1.2.2 Using VDI calls from BASIC 


Most VDI calls can be used from ST BASIC. Some calls are unnecessary or 
superfluous since they have counter parts as BASIC commands. It's much 
more complicated to draw a line with vdisys than with the linef 
command. Similarly, text output is simpler with PRINT than with VDISYS. 

Try the examples that follow and decide for yourself whether you can make 
use of a given function. 

First we'll look at some special effects with text. 
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' h “ geS the appearance of the characttre 


for text display. 


10 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


rem l_2a text effects 
fullw 2 : clearw 2 
a$ = "this is normal, 

a$(0) = "this is bold, 

a $ (1) = "this is light, 

a $ (2 ) = "this is italic, 

a$(3) = "this is underline, 

a$(4) = "this is outlined, 

gotoxy 6,3 
?a$; i 

for i=0 to 4 


intin 

intin 

intin 

intin 

intin 

intin 


gotoxy 6,5+2*i 
poke contrl ,106 
poke contrl+ 2,0 
poke contrl+6 ,1 
poke intin ,2 A i 
vdisys 
? a$ (i) ;2*i 
next 

poke contrl ,106 
poke contrl+ 2,0 
poke contrl+6 ,1 
poke intin ,0 
vdisys 

a-inp (2 ) : rem wait for keypress 


VI 


VI 


SectTmTv l L d m?YP^F ateS ±e di 1 fferen ^ s P ecial eff ects. In addition, special 
errects may be mixed. For example, setting a value of 9 in intin orodnrpc 

n ^ ^ nes to ^20 the normal display mode is 

re-enabled by setting intin to zero. Unless you do this, dlTublequent 
text is displayed with the special effects. ^ 
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Change character size 

The size of the text can also be changed. A total of six character heights are 
possible. Since this also changes the character width, there are some 
problems outputting the three larger character heights. 

The PRINT command assumes a character width of 8 pixels. Since the 
characters can be wider than 8 pixels, the right portion of the character is cut 
off. The three smaller character heights can be used without problems. 

Here's an example of changing the character height: 


1 

rem 1 2 2b change character height 

10 

fullw 2:clearw 2 


20 

a$(0) = "very small 

, intin = " 

30 

a$ ( 1) = "small 

, intin = " 

40 

a$(2) = "normal 

, intin = " 

50 

a$(3) = "large 

, intin = " 

60 

a$(4) = "larger 

, intin = " 

70 

a$(5) = "gigantic 

, intin = " 

80 

a(0)=l:a(l)=9:a(2)=10:a(3)=16:a(4)=18:a(5) 

90 

gotoxy 6,3 


100 

for i=0 to 5 


110 

gotoxy 6,5+2*i 


120 

poke contrl ,107 


130 

poke contrl+ 2,0 


140 

poke contrl+6 ,1 


150 

poke intin ,a(i) 


160 

vdisys 


170 

? a$ (i) ;a (i) 


180 

next 


190 

poke contrl, 107 


200 

poke contrl+ 2,0 


210 

poke contrl + 6 , 1 


220 

poke intin, 10 


230 

vdisys 


240 

a=inp(2) : rem wait 

for keypress 


We can solve the character width problem through programming. More 
about this in our next example. 
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Graphic Text Output 


VDI function 8 outputs text. The string of text may contain special effects 
and may be used to correctly display enlarged characters that are only 
partially displayed with the PRINT command. 

The text to be displayed is placed into the INTIN array. Each character of 
the text string occupies the lower byte of the array element (each is 2 bytes 
i S exam P le > the text string is placed into the array in lines 220 to 
240. The last character of the text string must have a zero value, line 250. 


The display location (on the screen) is passed through the PTSIN array. 
The display location are actual screen coordinates, not a relative location 
within the window. The VDI does not recognize windows; the AES 
manages them. The display location is relative to the upper- left comer of the 
character to be displayed. A value that positions some of the text off the 
screen should be avoided. 

Here's the program: 


10 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


rem l_2_2c graphic text output 

a$(0) = "small” 

a$(l) = "somewhat larger" 

a$(2) = "normal" 

a$ (3) = "still larger" 

a$(4) = "very large" 

a$(5) = "gigantic" 

a(0)=l:a(l)=9:a(2)=10:a(3)=16:a(4)=18:a(5)=20 

YP (0) =50 : yp ( 1 ) =62 : yp (2 ) =80 : yp (3) =100: 

yp (4) =125 :yp (5)=160 
fullw 2 : clearw 2 
for c=0 to 5 
a=a (c) : a$=a$ (c) 
gosub setheight 
for i=l to len (a$ (c) ) 

poke intin+ (i-1) *2,asc (mid$ (a$ (c) , i, 1) ) 
next 

poke intin+ (i-1) *2, 0 

poke contrl ,8 

poke contrl+ 2,1 

poke contrl+ 6, len (a$ (c) ) +1 

poke ptsin ,100 

poke ptsin+2 , yp(c) 

vdisys 
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320 next c 

330 a=10 

340 gosub setheight 

350 a=inp(2) : rem wait for keypress 

360 end 

370 setheight: 

380 poke contrl ,107 

390 poke contrl+ 2,0 

400 poke contrl+6 ,1 

410 poke intin ,a 

420 vdisys 
430 return 

Lines 210 and 370 illustrate another feature of ST BASIC: labels. You may 
use labels throughout a BASIC program. A label must be defined at the 
start of a line and be followed by a colon. Program text may follow the 
colon. 

One of the nicest features of labels is that they are valid replacements for line 
numbers. So the commands GOTO, GOSUB, ON GOTO, ON GOSUB, and 
RESTORE may be used with labels. Line 340 shows such a replacement. 

Line 350 waits for a keypress, which will end the program. 
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Change direction of text output 


Ilf on ? 6 the angl ® of text out P ut usin g VDI function 13. Only angle 
steps of 90 degrees may be specified, and these are given in units of tenfhs 

of a degree. A90-degree angle is therefore specified as 900 units. The angle 
is passed to VDI function 13 through intin (line 320). ° 


After you've displayed the text at the desired angle, you must set the angle 
back to zero, since all subsequent output is affected by the change. 


10 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


rem l_2_2d change direction of text output 

a$ =" round and round" 

fullw 2 : clearw 2 

for angle = 0 to 3 

gosub txt. angle 

for i=l to len (a$) 

poke intin+ (i-l)*2,asc (mid$ (a$, i, 1) ) 
next 

poke intin+ (i-1) *2, 0 
poke contrl ,8 
poke contrl+ 2,1 
poke contrl+ 6,len(a$)+l 
poke ptsin ,300 
poke ptsin+2 ,200 
vdisys 
next angle 

inp ( 2 ) : rein wait for keypress 

angle =0: gosub txt. angle 
end 

txt . angle : 

poke contrl ,13 

poke contrl+ 2,0 

poke contrl+6 ,1 

poke intin ,angle*900 

vdisys 

return 
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Set line type 

We've already mentioned that the characteristics of the drawing lines can be 
changed. VDI function 15 is used to set the line type. You can choose from 
among seven different line types by setting the parameter in INTIN. The 
following example displays the different line types available: 

1 rem l_2_2e set line type 

10 fullw 2:clearw 2 

20 i=20 

30 for pattern= 1 to 7 

40 gosub set. pattern 

50 for c=l to 20 

60 linef 20, c+i, 500, c+i 

70 next c 

80 i=i+30 

90 next pattern 

100 a=inp(2) : rem wait for keypress 

110 end 

120 set. pattern: 

130 poke contrl ,15 

140 poke contrl+ 2,0 

150 poke contrl+ 6, 1 

160 poke intin , pattern 

170 vdisys 

180 return 

In this program, all 7 line types are displayed, each 20 times. Line type 7 
appears as a solid line, but can be changed to a user-defined line type. The 
next example shows you how to do this. 
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Define line type 7 


1 i 3 is for defining line type 7. The bit pattern for the 
user-defined line type is stored in intin as a 16-bit word. The leftmost bit 
of the word corresponds to the leftmost pixel of the line segment. 


10 rem l_2_2f define line type 7 
100 fullw 2 : clearw 2:i = 10 
110 poke contrl ,113 

120 poke contrl+ 2,0 

130 poke contrl+ 6,1 

140 poke intin , &haaaa : ' pattern 

150 vdisys 

160 poke contrl ,15 

170 poke contrl+ 2,0 

180 poke contrl+ 6,1 

190 poke intin ,7 : ' pattern 

200 vdisys 

210 for c=l to 20 

220 linef 20, c+i, 500, c+i 

230 next c 

240 a=inp(2) 


In this example we used a bit pattern %1010101010101010, which is 
equivalent to the hexadecimal number shAAAA. Try defining your own line 

types. If the line is drawn vertically, note where the leftmost bit of the word 
appears. 


Desk File Run Edit Debus 
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Change line width 

To vary the width of a line, you use VDI function 1 6. This saves you the 
trouble of using multiple LINEF or CIRCLE commands to make a thicker 
line. 

The parameter representing the thickness is set in INTIN. Allowable values 
are the odd numbers beginning with 3. A value of 2 represents one pixel, 
the default value. 

10 rem l_2_g change line width 

100 fullw 2:clearw 2 

110 i=20 

120 linef 20, c+i, 500, c+i 
130 i=i+2 4 

140 f = 3 to 25 step 2 
150 gosub set. width 

160 linef 20, i,500, i 

170 i=i+25 

180 next c 

190 c=2: gosub set. width 

200 a=inp(2) : rem wait for keypress 

210 end 

220 set. width: 

230 poke contrl ,16 

240 poke contrl+ 2,1 

250 poke contrl+ 6,0 

260 poke ptsin ,c 

270 poke ptsin +2,0 

280 vdisys 

290 return 

This program draws the different line thicknesses from 1 pixel to 25 pixels 
in width. You might want to call the last line a bar, since it’s quite thick! 
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Change appearance of end points 


VDI function 108 sets the appearance of the endpoints of a line. If you have 
run the previous program, you can see that the endpoints of the line are cut 
oti square. This is the standard setting for line representation. 


Bu t the end points can be drawn with rounded ends. For drafting or 
technical work, the lines can be drawn with arrowheads at the ends It's a 
lot of work in BASIC, especially for the larger line thicknesses. But the 
V D1 makes it much easier to do. 


This function also works with the CIRCLE and ELLIPSE commands. You 
can change the sample program in such a way to draw a CIRCLE segment 
(arc) mstead of a line (lines 140 and 1 80). 6 

VDI function 108 requires parameters to specify the appearance of the 
starting and ending points of the line. These are passed in INTIN and 
intin+2. The values of 0, 1 and 2 are valid. A value of 0 is the default at 
power up A value of 1 specifies that the starting or ending point is an 
arrowhead. A value of 2 specifies that the starting and ending point is 
rounded. b v 


The following example is based on the one previous, for setting the line 
thickness. Therefore, you can just modify the previous program where 
needed and don't have to re-type the whole thing. 

After one pass, a keypress (anything but <ESC>) is expected. The picture is 
then drawn with new end points. Pressing the <ESC> key ends the 
program and sets the parameters back to the power-up values. 

10 rem l_2_2h rem end points 

100 start = 0 : f in =0 

110 gosub set. end 

120 i=20 

130 fullw 2 : clearw 2 

140 linef 20, c+i, 500, c+i 

150 i=i+2 4 

160 for c = 3 to 15 step 2 

170 gosub set. width 

180 linef 20, i,500, i 

190 i=i+35 

200 next c 

210 c=2: gosub set. width 
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220 a=inp (2 ) 

230 if a=27 then fin = 0 : start = 0: 

gosub set. end: end 
240 fin = fin +1 

250 if fin = 3 then fin = 0: start = start +1 

260 if start = 3 then start = 0 

270 gosub set. end 

280 goto 120 

290 end 

300 set. width: 

310 poke contrl ,16 

320 poke contrlt 2,1 

330 poke contrlt 6,0 

340 poke ptsin ,c 

350 poke ptsin +2,0 
360 vdisys 

370 return 

380 set. end: 

390 poke contrl ,108 

400 poke contrl+ 2,0 

410 poke contrlt 6,2 

420 poke intin , start 

430 poke intin + 2, fin 

440 vdisys 

450 return 
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Reading the mouse position 

You’ll probably notice that there isn't a BASIC function for reading the 
position of the mouse. The VDI has a function for this: 12 4. It also lets you 
know if any of the buttons are pressed. VDI function 12 4 requires no 
parameters. 


The call to this function returns a value in intin. A value of 0 indicates 
that no buttons were pressed. A value of 2 indicates that the right button 
was pressed. A value of 3 indicates that both buttons were pressed. 

The mouse position is returned in the ptsout array. The X-position is 
found at element ptsout. The Y-position is found at element ptsout +z. 
Both positions are the actual screen positions, not a position relative to a 
window. 

The following program is more complex than earlier ones. The program is 
used to build a screen menu. We have several programming tricks so you 
should study the code closely. 

When you nin the program, a small menu is displayed. Using the mouse, 
you can point to the individual menu items and select them by clicking the 
mouse button. The first three selections are disabled in this example. But if 
you select the fourth, the program is ended. 

To emphasize which selection was clicked, it is displayed in bold while the 
others appear in fainter type (line 60). You can select the variables active or 
inactive according to your taste. 

In this example, only the y-position of the mouse is needed to determine 
which menu item is selected. The value returned by the VDI is converted 
into an output line in line 1 10. To determine the y-position more easily, the 
REM command in line 110 should be removed. The y-position is then 
displayed in the upper lefthand comer for each change in the y-position. 

1 rem l_2_2i read mouse position 

10 a$ (1) ="Program load" 

20 a$ (2) ="Program start" 

30 a$ (3) ="Change Data" 

40 a$ ( 4 ) ="Program end" 

50 P(l)=7:p(2)=8:p(3)=9:p(4)=10 

60 activ = 1 : inactiv = 2 

70 fullw 2:clearw 2 
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80 gotoxy 5,5 : ? "Choose one : " 

90 effect = inactiv : gosub text. effect : 
gosub 210 

100 gosub mouse. button 
110 outval = int ( (y.pos-108) /16) : 

rem gotoxy l,l:?y.pos 

120 gosub mouse. in : if button = 0 then 100 
130 gosub mouse. out 

140 if outval <1 or outval > 4 then 90 
150 gosub 210 

160 effect = activ : gosub text. effect 
170 gotoxy 5, p (outval) : ? a$ (outval) 

180 if outval <> 4 then effect = inactiv 
else effect =0 
190 gosub text. effect 

200 if outval = 4 then select. ende else 100 

210 for i=l to 4 

220 gotoxy 5,p(i) : ? a$(i) 

230 next i 
240 return 
250 goto 100 
260 

270 mouse . in : rem ************************* 

280 poke contrl ,122 

290 poke contrl+2 ,0 

300 poke contrl+6 ,1 

310 poke intin ,0 

320 vdisys 

330 return 

340 

350 mouse . out : rem ************************ 

360 poke contrl ,123 

370 poke contrl+2 ,0 

380 poke contrl+6 ,0 

390 vdisys 

400 return 

410 

420 mouse . button : rem ********************* 

430 poke contrl ,124 

440 poke contrl+2 ,0 

450 poke contrl+6 ,0 

460 vdisys 

470 butt on=peek ( intout ) 
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480 x.pos =peek (ptsout) 

490 y.pos =peek (ptsout+2) - 38 

500 return 

510 

520 text. effect: rem ********************** 

530 poke contrl ,106 

540 poke contrl+2 ,0 

550 poke contrl+6 , 1 

560 poke contrl+10,1 

570 poke intin, effect 

580 vdisys 

590 return 

999 

1000 select. ende : rein ******************** 
1010 poke contrl, 122 

1020 poke contrl+2, 0 
1030 poke contrl+6, 1 
1040 rem 

1050 poke intin, 0 
1060 rem 
1070 vdisys 
1080 end 


Desk File Run Edit Debug 



I 


Choose one i 


Pntgran start 

il£ 
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Set Writing mode 

There are several write modes built into GEM. Normally, all output to the 
screen is done in replace mode . 

In replace mode, if something is already displayed on the screen, any new 
text or output overwrites or replaces the old text or output 

In transparent mode , the background is not cleared when new text or output 
is displayed. 

In the XOR mode, each pixel on the screen is reversed. 

When you first run this program disable line 160 with a REM or its 
abbreviation ('). On a white background, there is no visible difference. 
Then when you run the program for the second time, enable line 160 by 
removing the REM. The results will clarify the different write modes. 


0 

rem l_2_2j set write mode 


100 

fullw 2:clearw 2:dim x$(4) 


110 

x$ (1) ="normal text, replace 

mode 

120 

x$(2)="text in transparent 

mode 

130 

x$(3)="text is in the xor 

mode 

140 

x$(4)— "text in reverse transparent 

150 

color 1,1, 1,2,2 


160 

fill 1,1 : rem out first run 


170 

for i=l to 4 


180 

gosub set. wrt. mode 


190 

gotoxy 10,6+i: ?x$(i) 


200 

next 


210 

a=inp(2) : i=l 


220 

gosub set. wrt. mode 


230 

end 


240 

set . wrt .mode : 


250 

poke intin ,i 


260 

poke contrl ,32 


270 

poke contrl+2,0 


280 

poke contrl+6, 1 


290 

vdisys 


300 

return 
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1.2.3 The GEM SYS command 


The VDISYS call is used to access the functions of the Virtual Device 
Interface. As you’ll recall, the other major portion of GEM is the 
Application Environment Services, AES. To access the AES, you use the 
GEMSYS command. 

Parameters for this command are passed in various ways. These parameters 
may differ from those of the VDI. Also, the addresses of the parameter 
arrays are not readily available as with the VDISYS command. Instead, a 
table containing the address of the arrays is used. The table is accessed by 
the reserved variable name GB. 

Table GB contains six addresses and is therefore 24 bytes long. The array 
names (used by Digital Research) are CONTROL, GLOBAL, int . in, 
INT . OUT, AD DR . IN and ADDR . OUT. We’ll use these names in the 
following examples. 

The CONTROL array works much like the CONTRL array in the VDISYS 
command. As a BASIC programmer, you need not concern yourself with 
this array because it’s handled by a GEMSYS command in BASIC. 

The second address in the GB table points to the GLOBAL array. This array 
contains various parameters which should not be changed. The values are 
also set by GEM. 

The other four arrays function similarly to the VDISYS command. Note that 
each element of the int . IN and int . OUT arrays is two bytes in length 
(word), while the elements of the addr . in and ADDR . OUT arrays are four 
bytes in length (long word). 

The AES performs dozens of functions. Under BASIC, it’s not possible to 
use all of these functions. For example, the keyboard and mouse operations 
are handled by interrupt routines. Routines for handling these may not be 
performed from ST BASIC. In most cases, the system will crash trying to 
handle such a request. 

In order to make full use of the functions of the AES, you will have to use a 
language such as C, Pascal or Modula 2. 

Despite the limitations, you can perform some AES functions from BASIC. 
This next example changes the name of the output window. 
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1 rem 1_2_3 name output window 

10 gosub gem. arrays 

20 xl=0 : a$="This is our output window" 

30 poke in ,3 

40 poke int.in+2,2 

50 xl=varptr (a$) 

60 poke int.in+4,xl / 2 A 16 

70 poke int . in+6, xl and Shffff 

80 poke int.in+8,0 

90 poke int.in+10,0 

100 gemsys 105 

110 end 

120 • 

50000 gem. arrays: 

50003 int. in = peek(gb+8) *2 A 16 + peek(gb+10) 

50007 return 

In the subroutine gem . arrays, the address of the int . in array is found 
and stored in the variable of the same name in line 50003. The variable xl 
must be set up so as not to invalidate the result of the later varptr 
function. The text for the output window is contained in a$. You can put 
text of your choice here. But don’t get too carried away or the text won't fit 
in the space provided. The length of the string shouldn't exceed 20 
characters. 

The parameters are then POKEd into the int . in array. The GEMSYS 
command does not differ from the VD I SYS command in this respect. In 
lines 60 and 70 we pass the address of the string to the array. This address 
is found by the VARPTR function (line 50). If you don’t completely 
understand this parameter-passing, you can refer back to the explanation of 
the VARPTR function in the previous section. 

Interestingly, we don't POKE any values into the CONTROL array. We 
simply give GEMSYS the desired function number directly. ST BASIC 
calculates the values for the CONTROL array from this number and then 
places these into the array itself. This "luxury" would also be nice for 

VDISYS. 
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1.3 The speed of BASIC commands 


Everyone is interested in how fast the ST will run in BASIC. But how are 
you to measure the execution speed? ST BASIC has no way of measuring 
time. Fortunately the problem can be solved relatively easily. The operating 
system contains an interrupt-controlled counter in memory locations $4BA 
to $4BD. The contents of these memory locations constitute a long word, a 
32-bit value. The long-word value is incremented 200 times per second. 
Thus the resolution of the timer is 5 milliseconds. However, most 
commands are processed in a significantly shorter time. Therefore, to 
measure the duration of a command, you can execute the command many 
times in a loop and then divide the resulting time by the number of passes. 
After subtracting the time for the FOR. . .NEXT loop, you'll have an 
accurate time for the execution of the command. 

We determined the execution time of many commands with the following 
short program: 

10 rem 1_3 measure execution time of cmd in 130 

100 timer = &h4bc 

110 timel = peek (timer) 

120 for i = 1 to 10000 

130 let a = 1 

140 next i 

150 time2 = peek (timer) 

160 time = time2 - timel 

170 time = (t ime*5/10000 ) - . 84 95 
180 ? "the command in 130 requires"time 

"milliseconds" 

On the average, all ST BASIC commands require between about 0.6 and 
1.9 milliseconds. The slowest is the PRINT command. The time to output a 
single character is about 4.5 milliseconds. The exact duration of a print is 
not so easy to calculate. We did this by determining the time for the 
GOTOXY command and noting it. We then determined the time for the line: 

130 gotoxy 0,0: PRINT "a"; 

and subtracted the time for the GOTOXY. Note the semicolon at the end of 
the PRINT output. Without the semicolon the characters CR and LF would 
be printed after the "a". 
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The times increase dramatically if we remove the GOTOXY command and 
the semicolon. Then the screen scrolls on (almost) every output. If you 
really want to find out the time required for this, you should reduce the 
number of passes to 100 or 200 (lines 120 and 170). Otherwise the test run 
is very time-consuming. 

The most interesting results are from the floating-point functions like SQR, 
SIN, and LOG. These functions are very fast. If we compare the times 
determined with those from other computers, we see an enormous increase 
in speed. The time for the SQR function on a Commodore 64 is about 54 
milliseconds. On the ST the function requires only about 1 millisecond! 

The surprising differences of times, compared to the other functions, is 
brought about because much of BASIC is written in C. Only the 
floating-point functions are written in assembly language. Floating-point 
routines were written by Motorola, the developer of the 68000. 


44 



Abacus Software 


Atari ST Tricks and Tips 


1.4 BASIC and machine language 


Do you have a need to mix BASIC and machine language? Most functions 
are a vailable directly from BASIC. But it's the word most that made us 
decide to investigate further. Recall that the clock time is unavailable from 
BASIC. Yet the operating system has an accurate clock that runs in 
two- second steps. Here's a way to use the clock from BASIC. 


1.4.1 ’’SAFE" places for machine language programs 


We decided to write a machine language program for using the clock. But 
first we are faced with another problem. How do we combine a machine 
language program and a BASIC program and avoid problems? 

The simplest solution is to place the machine language routine in an area of 
memory that’s safe from BASIC. One choice is the "free" area above the 
screen memory. Screen RAM is organized to use the upper 32K of 
memory. On the 520ST, screen RAM is located at $78000. On the 1040ST, 
it is located at $F8000. The screen occupies 640 x 400 = 32,000 bytes. The 
remaining 768 bytes of the 32K area (32K = 32,768) is not used by the 
operating system. Assuming that it is small enough to fit, a machine 
language program can be POKEd into this area. 

A program that uses this area must determine if the computer has 5 12K or 
1024K and select the corresponding address. When a "free" area like this 
exists, many programs may want to use this memory for routines. If two 
programs try to use the same area simultaneously, then there's a good 
chance that there will be serious problems. 

So where should machine language routines be located? One trick is to pack 
the machine language routine into a string variable. BASIC does not care if 
a variable A$ contains text like "Hi there everybody" or a machine 
language program. Well demonstrate how you can transfer machine code to 
a string variable shortly. 

To read the clock from a machine language program, you use the TRAP # 1 
instruction with a value of $2C on the stack. This call to the operating 
system returns the time in the DO register. The value in DO is coded in 
individual bits. To determine the time, you must decode the bits. 
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Here's the routine to read the clock: 


000000 

move . 1 

a0, a5 

000002 

move . w 

#$2c,-(a7) 

000004 

trap 

#1 

000008 

addq. 1 

#6,a7 

00000a 

move . w 

dO, $10 (a5) 

OOOOOe 

rts 


000010 

ds . w 

1 


address of routine to a5 

get function number clock time 

execute function 

repair stack pointer 

write clock time in memory 

space for time 


If you assemble this routine and call it from BASIC using the CALL 
command, the address of the routine is found in register AO. The first 
instruction transfers the routine address to register A5 — we'll need it later. 
Next the clock time is determined by calling the operating system using the 
TRAP # l instruction. Then the stack pointer is restored to its original 
value. The time is returned in register DO, which is saved in memory 
Register A5 is used to access this "save area," which is 16 bytes ($10) from 
the start of the routine. 


By assembling this routine, you'll get the opcodes for the machine language 
instructions. Here are the opcodes for the routine above: 


$2a,$48,$3f,$3c,$00,$2c,$4e,$41 
$54, $8f , $3b, $40,$00,$10,$4e,$75 


The next step is to get t|hese values into 
following BASIC statements to do this: 


a string variable. We can use the 


rem l_4_la m/1 in string 
for i=0 to 17 
read byte 

clk$=clk$+chr$ (byte) 
next 

data &h2a, &h48, &h3f , &h3c, &h00, &h2c, &h4e, &h41 
data &h54, &h8f , &h3b, &h40, &h00, &hl0, &h4e, &h75 
data &hff,&hff 

The last two values represent the area to store the clock time. If you do not 
reserve the area within the string variable, you will overwrite another 
variable stored in memory. 

We've written the machine language routine and stored it in a "safe" place in 
memory. Now we must find a way to execute the routine. 


1 

10 

20 

30 

40 

50 

60 

70 
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To do this, we must know the address at which the string is stored. You 
may recall that the VARPTR may be used to determine the address of a string 
descriptor. In bytes 3 through 6 the descriptor is the address of the actual 
string. This is also the address of our machine language routine, of course. 

80 addr = 0 

90 addr = varptr(clk$) 

The VARPTR function returns an address into the variable addr. 

Line 80 is important, by the way. If the variable addr is not initialized, the 
results can be corrupted by initialization during the VARPTR function. 

Now we call the machine language program to read the clock time. We use 
the CALL command. 

100 call addr 

After this command, the clock time is found in the rightmost two characters 
of the string variable clk$. You can access these "characters" using the 
RIGHT$ and LEFT$ function. 

110 t ime$ = right $ (clk$ , 2 ) 

120 sec= (asc (right$ (time$, 1) ) + 
asc (left$ (time$, 1) ) *256) *2 
125 print "Total seconds since 12:00 AM " sec 
130 goto 100 

This method of calling a machine language routine from BASIC has its 
drawbacks. A string variable is limited to 256-characters in length. 
Therefore the length of the machine language routine is limited too. Passing 
parameters through individual strings can be complicated. So we came up 
with alternative way to combine machine language and BASIC. 

This method is the most flexible option for combining machine language 
programs in BASIC programs. The routine is placed in an integer array. 

If you examine the structure of an integer array you will see that the 
individual elements of the array are located one after the other in memory. 
The element with the lowest index lies at the lowest address. Each element 
is two bytes in length — just right for the opcodes of the 68000. The size of 
a machine language program in an array is not as severely limited as it is 
with the string method. Programs can easily be 1000 bytes or longer. 
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1 rem l_4__lb m/1 in integer array 

10 dim clk% (8) 

20 for i=0 to 8 

30 read clk% (i) 

40 next i 

50 data &h2a48, &h3f3c, &h002c, &h4e41, &h548f 

60 data &h3b40, &h0010, &h4e75, &h0000 

As you see, we first dimension the array (line 10) and then place the 
program in it. This initialization is shorter than with the previous program 
because the data elements are now 16 bits each. 

Once again we must determine the address of the routine by using the 
VARPTR function. The result of the VARPTR points directly to the first 
command of the routine. Therefore we can use the result as the jump 
address for the CALL command! 

70 ad = 0 

80 ad = varptr (clk%(0)) 

90 call ad 

We can also get the result easily. It is contained in array element clk% ( 8 ) . 
100 ?clk% ( 8 ) 

Parameters can also be passed to the routine in the same way. You simply 
enter the parameters into the appropriate array elements and the program 
fetches them from the selected memory locations. 
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1.5 The most expensive clock in your house 


Some people might consider this program to be rather useless. We disagree, 
because the program demonstrates some fundamental programming 
techniques. 

We have used several graphics capabilities of the ST in the following 
program with a short routine for reading the clock time. The following is a 
short description of some of the special features of the program: 

Several variables are initialized in the first seven lines of the program. 

Variable hO is the size of the type for the digital display. If you stop the 
program, the ST will not automatically switch back to the normal type size. 
This is especially annoying during a test run when you've made a typing 
error in the program. For the test run, set this variable to a value of 10. This 
will set the type to its normal size. 

Variables xm% and ym% determine the center of the dial. 

Variables sec . p%, min . p%, hrs . p% determine the length of the three 
pointers. 

Variable pi is the value n (3.14159), which is not directly available in ST 
BASIC. 

Next, the type height is set, the array for the machine language program is 
set , and the dial is drawn. 

The actual program begins in line 1130. Line 1135 checks for the mouse 
button. If a button is pressed, the character size is returned to normal. The 
machine language program places the seconds in clk% (20) , the minutes 
in clk% ( 2 1 ) , and the hours in clk% ( 22 ) . After this, a comparison is 
made to see if the new value for the seconds is the same as the old value. As 
long as this is the case, a new pass through the loop is made. Not until the 
seconds have changed is the loop exitted. 

The remainder of the program is relatively easy. You should have no trouble 
understanding it. 
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Figure 1.4-1 
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100 rem clock 

1000 h0=25 

1010 dim clock%(23) 

1020 xm% = 320 :ym% = 200 

1030 sec. z% = 115 : min.z% =105 : std.z% = 80 
1040 pi=4*atn (1) 

1050 g89 = 89 . 9* (pi/180) : g90 = pi/2 : g91 = 90 . 1* (pi/180) 

1060 clock = 0 
1070 * 

1080 fullw 2 : clearw 2 
1090 gosub height 
1100 gosub init. clock 
1110 gosub clockface 
1120 ’ 

1130 loop: ' ************************* 

1135 gosub mouse. button 

1140 clock = varptr (clock%(0)) 

1150 call clock 

1160 if sec% = clock% (20) *2 then loop 
1170 ' 

1180 ' erase hands ****************** 

1190 sec% = clock%(20)*2 

1200 color 0,0, 0,0,0 

1210 dmy% = std% : std% = clock%(22) 

1220 if dmy%<> std% then phi = phistd : r%=std. z% :gosub draw 
1230 dmy% = min% : min% = clock%(21) 

1240 if dmy%<> min% then phi = phimin : r%=min . z% : gosub draw 
1250 phi = phisec : r%=sec.z%: gosub draw 
1260 ' 

1270 • 

1280 ' draw new hands ************ 

1290 color 1,0, 1,1,1 

1300 phisec = sec%*pi/30-g90 : r%=sec.z% 

1310 phi = phisec : gosub draw 

1320 phimin = min%* 6 * (pi/180) -g90 : r%=min.z% 

1330 phi = phimin : gosub draw 

1340 phistd = std%* 30 * (pi/180)-g90 : r%=std.z% 

1350 phi = phistd : gosub draw 
1360 gosub digital 
1370 goto loop 
1380 • 

1390 draw: ' *********************** 

1400 linef xm% ,ym% ,xm%+r%*cos (phi) , ym%+r%*sin (phi) 
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1410 if r%= sec . z% then return 
1420 ' 

1430 linef xm%+l,ym% ,xm%+r%*cos (phi) +1, ym%+r%*sin (phi) 
1440 linef xm% , ym%+l, xm%+r%*cos (phi) , ym%+r%*sin (phi) +1 
1450 linef xm%+l, ym%+l, xm%+r%*cos (phi) +1, ym%+r%*sin (phi) +1 
1460 if r%= min . z%then return 
1470 • 

1480 linef xm%+2,ym% , xm%+r%*cos (phi) +2 , ym%+r%*sin (phi) 

1490 linef xm% ,ym%+2,xm%+r%*cos (phi) , ym%+r%*sin (phi) +2 
1500 linef xm%+2, ym%+2, xm%+r%*cos (phi) +2, ym%+r%*sin (phi) +2 
1510 return 
1520 ' 

1530 clockf ace : ********************* 

1540 circle xm%, ym%, 120, 120 
1550 circle xm%, ym%, 130, 130 
1560 for std%= 1 to 12 

1570 phi = std%* 30 * (pi/180) -g90 : rl%=130 : r0%=120 
1580 linef xm%+r0%*cos (phi) , ym%+r0%*sin (phi) , 
xm%+rl%*cos (phi) , ym%+rl%*sin (phi) 

1590 phi = std%* 30 * (pi/180) -g89 : rl%=130 : r0%=120 
1600 linef xm%+r0%*cos (phi) , ym%+r0%*sin (phi) , 
xm%+rl%*cos (phi) ,ym%+rl%*sin (phi) 

1610 phi = std%* 30 * (pi/180) -g91 : rl%=130 : r0%=120 
1620 linef xm%+r0%*cos (phi) , ym%+r0%*sin (phi) , 
xm%+rl%*cos (phi) ,ym%+rl%*sin (phi) 

1630 next std% 

1640 for min%= 1 to 59 

1650 phi = min%* (pi/30) : rl%=130 : r0%=120 

1660 linef xm%+r0%*cos (phi) , ym%+r0%*sin (phi) , 
xm%+rl%*cos (phi) , ym%+rl%*sin (phi) 

1670 next min% 

1680 return 
1690 ' 

1700 digital : * ************************ 

1710 sec$=str$ (sec%) : if len(sec$)=2 then 
sec$=" 0"+right$ (sec$, 1) 

1720 min$=str$ (min%) : if len(min$)=2 then 
min$=” 0"+right$ (min$, 1) 

1730 std$=str$ (std%) : if len(std$)=2 then 
std$=" 0"+right$ (std$, 1) 

1740 timdig$=right$ (std$, 2 ) +"Z"+right$ (min$, 2) +"Z"+ 
right $ (sec$, 2) 

1750 gosub printdig 
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1760 return 
1770 * 

1780 height: ' ************************ 

1790 poke contrl ,107 
1800 poke contrl+2,0 
1810 poke contrl+6 ,1 
1820 poke intin, hO 
1830 vdisys 
1840 return 
1850 * 

1860 printdig: rem ********************* 

1870 poke contrl ,11 
1880 poke contrl+2 ,2 
1890 poke contrl+6 ,10 
1900 poke contrl+10,10 
1910 poke contrl+12,2 
1920 poke intin ,1 
1930 poke intin+2 ,1 
1940 for i%=l to 8 

1950 poke intin + (i%*2+2) , asc (mid$ (timdig$, i%, 1) ) -32 
1960 next i% 

1970 poke ptsin,210 
1980 poke ptsin+2,80 
1990 poke ptsin+4,220 
2000 poke ptsin+6,0 
2010 vdisys 
2020 return 
2030 * 

2040 init. clock: ' ********************* 

2050 data &h2a48, &h3f3c, &h002c, Sh4e41, &h548f , &h3b40, &h0028 
2060 data &h026d, &h001f , &h0028, &hea48, &h3200, &h0240, &h003f 
2070 data &h3b40, &h002a &hec49, &h3b41, &h002c, &h4e75 
2075 data &h0000, &h0000, &h0000, &h0000 
2080 for i% = 0 to 23 
2090 read clock% (i%) 

2100 next i% 

2110 return 

2120 mouse .button : ' **** 

2130 poke contrl, 124: poke contrl+2,0: poke contrl+4,0 
2160 vdisys 

2170 button = peek (intout) 

2180 if button <> 0 then h0=10: gosub height: end 
2190 return 
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1.6 Automatic hardcopy 


To get a hardcopy of the screen, you can press the <ALT> and <HELP> 
keys simultaneously. Memory location 1262 is a flag that tells the ST to 
print a screen hardcopy. Normally the memory location has a value of -1. 
Pressing <ALT> <HELP> increments the value and generates the 
hardcopy. 

Knowing this, you can POKE memory location 1262 to get "automatic" 
hardcopy: 

poke 1262,0 

Alternatively, you can issue a VDI function 5 to perform hardcopy as 
follows: 

contrl ,5 
contrl+ 2,0 
contrl+ 6,0 
contrl+10, 17 

By the way, the hardcopy can be interrupted by pressing <ALT> <HELP> 
while it’s printing. 
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Utilities for the ST 


This chapter contains a very powerful set of utility programs. These are 
mostly machine language programs that change or extend the functions of 

and wU1 make " easi “ t0 

Each utility is preceded by a brief description of the program, its application 
and its capabilities. The source code for each program is written in 68000 
assembly language. 

Each is documented so that you can makes changes or enhancements 
according to your needs. But to do so, you'll require an assembler. 

If you program only in BASIC, you can use the BASIC loader to create the 
program. A BASIC loader contains the machine language utility in the form 
of data statements. The BASIC loader uses a checksum to insure that 
input errors are eliminated. By running the BASIC loader, you create a 
program file on the disk that's normally created by the assembler and linker 
Oice you ve run the BASIC loader for each utility, you can then start each 
of them by clicking the appropriate icon with the mouse. 
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2.1 Current time display 


In the following utility we'll show you three programming techniques to use 
in your own programs. The first technique lets you execute a program 
periodically. The second technique shows you where in memory to place a 
short program so it's not destroyed later by other programs. The third 
technique shows you how to use the ST's system fonts. 

This utility creates a digital clock in the upper righthand comer of the 
screen. It's displayed whenever you are working on the desktop or with 
GEM programs. In both of these cases, the top line of the screen is a status 
line and the last 10 characters are normally unused. 

To work correctly, the clock time is continually redisplayed. To do this we 
use the ST's vertical blank interrupt (VBL). The VBL is called each time the 
computer has completed displaying a complete video picture. This happens 
70 times a second with the monochrome monitor. 

The VBL routine checks a jump table containing the addresses of user 
routines to be executed during the VBL. The table normally has 8 entries. A 
zero value indicates that the entry is not used. To execute a user routine, you 
must search the table and place the address of your routine into the first 
unused entry. From then on, this routine is executed 70 times per second 
during a VBL interrupt. 

Now we have to find a place for the program itself. In order to explain the 
program, we'll repeat part of an earlier chapter. 

If the program is smaller than 3 full pages (768 bytes), you can place the 
program above screen memory. After power-up the ST reserves the top 
32K of memory for the screen display. On the 520 ST the screen occupies 
$78000 to $7FFFF. 

You'll recall that the screen is a maximum of 640x400 pixels, which equates 
to 256,000 bits, or 32,000 bytes. A 32K area contains 32,768 bytes, so the 
last 768 bytes of screen memory are "left over." Screen memory occupies 
only the area from $78000 to $7FCFF, inclusive. The memory from 
$7FD00 to $7FFFF is not used for screen output. So this area can be used 
for a short routine. 

To install the utility, an initialization routine must copy the program to this 
memory area and then set the VBL vector to point to this address. 
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S e ST B m,^hVi n P ?? 0f * e s ? 8tem ™ ables - To access a system variable, 
ImrClT. vm r ‘l'" su P e ™ sor mode- Then we need to find an unused 
entry m the VBL list, save the address of this entry in register A2 and conv 
our utility to its proper location. The length of S utility L a coumer The 
destination address is the length of the utility plus 32000 the length of the 
screen Now we can copy the utility to the top of the ^n me2^ T^n 
we can the routine to initialize the time display and finally set tSe VBL 
vector to our routme and return to the desktop. 

tte rime ^ a pointer “ ! he font which we will use to display 
tne time. To do this we use a special part of TOS (line A routing that 

returns a pointer to a vector array of the three system fonts in register A1 

! et thC adc J ess of ^ second f ont, the 8x16 pixel font which is the 

set the vbl ^ * 1 " 

the display only when the counter is zero. The display CthLTsetfl the 
counter. This routmes gets the clock time from the processor and is identical 
to the corresponding BIOS function which returns the time in DOS format 
with a resolution of 2 seconds. The keyboard processor however keeps time 

Sf tly £5? se ‘ 0, ? d in BCD format - This P time is saved bith^sS 
address $A46 at the label time in the program listing The three bvtes the 
hour ‘he reroute and .he second am in The Id-hour foLmbuTS Sento 
the screen by the routine wrtbed. Ken 10 

Si Xh n eilS.; h TL WriKS 3 character contained in register DO to the top 

vTue bllwin n In Jto. ^ 1,08,11011 18 contained in the register D6 (a 

detllrtnld rrn°m^t 7 ^' " cul T , : nt P° s ‘ uon within the screen memory is 
determined from the cursor position and the base address of the screen 

memory. Then the address of the point, the offset of the next raster line the 

umber of scan lines and the height of the character are determined from the 

is confed In' th ^ routine at 1 f. bel loo P> th e data from the font definitions 
Wfen d |hi he SCreen ’ ras n r line by raster line ’ until an entire character is 
changes ^ program Wl11 work on a monochrome monitor without 

GFMmfjt 6 W 9 ri wu the r? aracters t0 the screen with the BIOS or 
TnP^? 7 S TK Why dld we c °Py the system font data to the screen 

Using die ^ WOrking within an interrupt routine. 

us l n i tbe BIOS or GEMDOS routines, a screen output can be interrupted 
and the cursor may be moved to a different position on the screen, wild 
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this, we would have to save the cursor position, set the cursor to the top 
line, write the character to the screen and then set the cursor to its original 
position. If another font were being used, then our display time would 
become confused. By accessing the system fonts directly, we avoid these 
problems and perform the work at faster speeds. 

Figure 2.1 shows the time display in the status line of the desktop. 

Following is the assembly language listing of the program. If you do not 
have an assembler, the short BASIC program will create an equivalent 
machine language program to display the time. Running the BASIC loader 
creates a program file called TIME . PRG . You can start it as usual by 
clicking its icon. 
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* display current time 

* use vertical blank interrupt 

* 

* LE 2/8/85 

* 


v bas ad equ 

$44e screen 

address 

N 

1 1 
ro 
o 
o 

1 

equ 

$4ba 200hz 

system timer 

gemdos 

equ 

1 


setexec 

equ 

5 


bios 

equ 

13 


keep 

equ 

$31 


gettime 

equ 

23 


super 

equ 

38 execute 

in supervisor mode 

xbios 

equ 

14 



move . 1 

4 (sp) , aO 

calculate program 

size 

move . 1 

#$100, d6 



add . 1 

12 (aO) ,d6 



add . 1 

20 (aO) , d6 



add . 1 

28 (aO) ,d6 



bsr 

init 

program init . 


clr 

- (sp) 



move . 1 

d6, - (sp) 

number bytes 


move 

#keep, - (sp) 



trap 

# gemdos 



init dc.w 

linea 



moveq 

#2*4, dO 

font 

number 

lea 

f ontptr (pc) , a3 



move . 1 

(al, dO) , (a3) 

mark 

font pointer 

move 

#gettime, - (sp) 



trap 

#xbios 



addq . 1 

#2, sp 



move 

d0,d7 



pea 

sup_rout (pc) 
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★ 

move 

trap 
addq . 1 
rts 

#super, - (sp) 

Ixbios 
#6, sp 

execute rest in * 
supervisor mode 

sup_rout : 

move 

and 

lsl 

move 

d0,d7 

#%lllll,dO 
#1/ dO 
dO, second 

seconds in binary 


move 

lsr 

and 

move 

dO, d7 
#5, dO 

#%llllll,dO 
dO, minute 



move 

moveq 

lsr 

move 

d7 , dO 
#11, dl 
dl, dO 
dO, hour 



move 

#$2700, sr 

interrupts disabled 


move . 1 
add . 1 

hz_200 , time 
#200, time 


* 

pea 

move 

move 
trap 
addq. 1 
move . 1 
rts 

hz_int (pc) 

#$45, -(sp) timer c interrupt 

vector 

#setexec, - (sp) 

#bios 
#8, sp 

d0,hz_save 200hz vector mark 

hz int 

movem . 1 

d0-d7/a0-a6, - 

(sp) save regs 


move . 1 
cmp . 1 
bne 

time, dO 

hz_200,d0 

no_show 

one second yet? 
no 


add. 1 

#200, time 

next second 
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addq 

#1, second 


cmp 

#60, second 

check seconds 

bne 

show time 


clr 

second 


addq 

#1, minute 

next minute 

cmp 

#60, minute 

check minutes 

bne 

show_time 


clr 

minute 


addq 

#l,hour 


cmp 

#24, hour 

check hours 

bne 

show time 


clr 

hour 


show time: 



moveq 

#70, d6 

cursor position 

move 

hour , dO 

get hour 

bsr 

wrtdec 


bsr 

wrtcol 


move 

minute, dO 

get minute 

bsr 

wrtdec 


bsr 

wrtcol 


move 

second, dO 

get second 

bsr 

wrtdec 


no_show movem . 1 

(sp) +, d0-d7/a0 

-a6 

move . 1 

hz_save, - (sp) 

address of rout 

rts 



wrtdec : 



move 

#$2f , dl 

number 10 

wrtdecl addq 

#1, dl 


sub 

#10, dO 


bpl 

wrtdecl 


add 

#$3a,d0 

one digit 

move 

dO, - (sp) 


move 

dl, dO 


bsr 

wrtchar 

output 

move 

(sp) +, dO 

unit 

bra 

wrtchar 

output 
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wrtcol moveq #$3a,d0 


* 

* 


system font ATARI ST 


* LE 

* 

9/8/85 


adelow 

equ 

36 

adehigh 

equ 

38 

cellwd 

equ 

52 

fontdat 

equ 

76 

f ormwd 
* 

equ 

80 

formhg 

equ 

82 

linea 

equ 

$a000 

linel 

equ 

80 


lowest ascii-code in font 

hi9hest ascii— code in font 

linewidth 

ptr to font data 

status of next raster line in 

font 

number of raster lines / char 


bytes per screen line 


* 

* 

* 


wr ite character to to graphic ram 
dO = character 
d6 = cursor column 


move cursor to next 
column 

get font pointer 
plus screen address 

font data pointer 
offset of next 
raster line in font 
form height (number 
pf scan lines) 


* 

wrtchar : 

moveq 

move 

addq 

* 

move . 1 
add . 1 
move . 1 
move . 1 
move 

* 

move 

* 

subq 

loop move . b 
* 

add 


#0,dl 
d6, dl 
#l,d6 

fontptr (pc) , a3 
_v_bas_ad, dl 
dl , a4 

fontdat (a3) , aO 
f ormwd (a3) , d2 

formhg (a3) , d7 

#1, d7 

(aO, dO) , (a4 ) 
flinel, a4 


onscreen raster 
line 

pointer to next 
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* screen line 


* 

add 

dbra 

rts 

d2, aO 
d7, loop 

pointer to next 
raster line in font 

f ontpt r 

ds . 1 

1 


hz_save 

ds.l 

1 


second 

ds . w 

1 


minute 

ds . w 

1 


hour 

ds . w 

1 


time 

ds.l 

1 
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BASIC loader for display time 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


open "R", 1, "b : time .prg" , 16 : rem disk b 
field#l,16 as bin$ 

a$="" : for i=l to 16: read x$ : if x$=”*"then 150 
a— va l ( ”&H”+x$ ) : s=s+a :a$=a$+chr$ (a) : next 
lset bin$=a$: rec=rec+l : put l,rec: goto 120 

data 60, 1A, 00,00,01,82,00,00,00,00,00,00,00,00,00,00 
data 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,20, 6F, 00, 04 

data 2C, 3C, 00, 00, 01, 00, DC, A8, 00, 0C,DC, A8, 00, 14, DC, A8 
data 00, 1C, 61, 0A, 42, 67, 2F, 06, 3F, 3C, 00, 31, 4E, 41, A0, 00 
data 70, 08, 47, FA, 01, 48, 26, Bl, 00, 00, 3F, 3C, 00, 17, 4E, 4E 
data 54,8F,3E,00,48,7A,00,0C,3F,3C,00,26,4E,4E,5C, 8F 
data 4E, 75, 30, 07, CO, 7C, 00, IF, E3, 48, 33, C0 f 00,00,01,78 
data 30, 07, EA, 48, CO, 7C, 00, 3F, 33, CO, 00, 00, 01, 7A, 30, 07 
data 72, 0B,E2, 68 , 33, CO, 00, 00, 01, 7C, 46, FC, 27, 00, 23, F9 
data 00,00, 04, BA, 00,00,01,7E,06,B9,00,00,00,C8,00,00 
data 01,7E,48,7A, 00,16, 3F,3C, 00,45, 3F,3C, 00,05, 4E,4D 
data 50, 8F, 23, CO, 00, 00, 01, 74, 4E, 75, 48, E7, FF, FE, 20, 39 
data 00, 00, 01, 7E, B0, B9, 00, 00, 04, BA, 66, 6A, 06, B9, 00, 00 
data 00,C8,00,00,01,7E,52,79,00,00,01,78,OC,79,00,3C 
data 00,00,01,78,66,32,42,79,00,00,01,78,52,79,00,00 
data 01, 7A, 0C, 79, 00, 3C, 00, 00, 01, 7A, 66, 1C, 42, 79, 00, 00 
data 01,7A,52,79,00,00,01,7C,OC,79,00,18,00,00,01,7C 
data 66, 06, 42, 79, 00, 00, 01, 7C, 7C, 46, 30, 39, 00, 00, 01, 7C 
data 61, 20, 61, 36, 30, 39, 00, 00, 01, 7A, 61, 16,61, 2C, 30, 39 
data 00 , 00, 01, 78, 61, 0C, 4C, DF, 7F, FF, 2F, 39, 00, 00, 01, 74 
data 4E, 75, 72, 2F, 52, 41, 90,7C, 00, 0A, 6 A, F8,D0,7C,00, 3 A 
data 3F, 00, 30, 01, 61, 06, 30, IF, 60, 02, 70, 3A, 72, 00, 32, 0 6 
data 52, 46,26, 7A, 00,28,D2,B9, 00, 00, 04, 4E,28, 41,20, 6B 
data 00,4C,34,2B,00,50,3E,2B,00,52,53,47,18,B0,00,00 

data D8 , FC, 00 , 50 ,D0, C2, 51, CF, FF, F4, 4E, 75, 00, 00, 00, 00 

data 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 

data 00, 50, 0E, 0C, 0E, 0A, 16, 0C, 12, 06, 08, 08, 06, 08, 08, 06 
data 08, 08, 08, 0a,0a,0c, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
data * 

close 1 : if s<> 25074 then ? "ERROR in DATA !!": end 
print "Ok." 
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2.2 Print spooler for the ST 


Have you ever sat in front of your computer and waited for a 10-page listing 
to print? While waiting, you could be doing other work on the computer. 
Here's a very useful utility to cut the time spent waiting for lengthy 
printouts. 

The speed of a printer depends on the printer mechanism, which is usually 
much slower that the rate at which the computer sends data to the printer. 
Because of this speed discrepancy, some printers contain a buffer that holds 
data temporarily as it arrives from the computer. The data is retrieved from 
the buffer as the print mechanism is ready to print it. 

A typical size for a buffer is 2K — roughly one page of text. If the document 
to be printed is larger than 2K, the buffer fills up and the computer stops 
sending data to the printer until the buffer can accept more data. One way to 
avoid this computer-waiting-for-data problem is to install a larger print 
buffer. Unfortunately, these are rather expensive. But we have a computer 
with 512K or 1024K of memory. Why not put the print buffer in the ST 
itself? 

Enter the print spooler. To better understand this utility program, we'll 
briefly describe how data is transferred from the computer to the printer. 

Data is transferred one byte at a time over a Centronics interface. So that the 
computer and the printer can agree on the time of the transfer, two 
handshake lines are used. If the printer is ready to accept data, it signals the 
computer by setting the BUSY handshake line low. The computer then 
sends the data to the printer. When the data is sent, the computer sets the 
STROBE handshake line low. 

To set up an intermediate buffer for the data, two routines are needed to 
coordinate the data flow. One routine writes the data that is normally sent to 
the printer to the buffer. Another routine sends the data from the buffer to 
the printer when the printer is ready to accept data. 

This program is set to manage a buffer of up to 63K. By clicking the 
mouse, the program reserves a 32K buffer. This is enough for about 15 
pages of text. By running the program as a TIP (TOS Takes Parameters) 
file, you can specify the buffer size — any value between 1 and 63 sets the 
size in kilobytes. 
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If you anticipate using the print spooler often, you can have have it installed 
each time you boot the operating system. Place a folder called AUTO on the 
operating system diskette and copy the program to this folder. When the 
system is booted, all the programs in the AUTO folder are executed 
alphabetically. 

Here’s a short description of the print spooler: 

So that the print spooler reserves enough space for both itself and the 
buffer, the size of the memory area is determined. This is found in the base 
page, which is 256 bytes long. It immediately precedes the program. The 
address of the base page is found on the stack. The lengths of text, data, 
and block storage segments are added to the length of the base page. 

The base page also contains the command line . The command line is the text 
that we entered as parameters of the program to start the program. The 
parameter represents the buffer size (in kilobytes). The parameter in the 
command line is converted to a binary number. If a parameter is omitted, a 
32K buffer is the default. By shifting the number in a register, the value is 
converted to the exact buffer size. 

Next we change the system for the TRAP #13 instruction to point to our 
print spooler program. In this program we'll test the parameter on the stack, 
to determine if either the printer output or the printer status is being 
requested. If a service other than these two is requested, then the original 
TRAP #13 routine is performed. 

There are several situations that our print spooler must consider: 

• If the buffer is empty, we try to output the character 
directly to the printer. 

• If the printer is not ready to accept a character, or the buffer 
is not empty, then we write the character to the buffer. 

• If the buffer is full, then we wait 30 seconds. If the buffer 
does not have space after 30 seconds we inform the 
requester that the character cannot be output. This occurs 
when the buffer is full and the printer is not accepting any 
more data. 
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How do we get data from the buffer to the printer? 

The BUSY line of the printer generates an interrupt when it is ready to 
receive the next character. By vectoring this interrupt to our routine labeled 
busyint, we can transfer data from the buffer to the printer. In this 
interrupt routine, we check to see if there is data remaining in the buffer. If 
so, one character is removed and sent to the printer. This ends the interrupt 
routine; control is returned to the interrupted program. The advantage of this 
method is that the computer doesn't spend time waiting for the printer. 

If you install this print spooler and send a 10-page document to the printer, 
the computer will be ready for further processing in a very short time — even 
though the printer continues to work for several minutes afterwards. 

Following is the assembly language listing for the print spooler program. 
There is also a BASIC loader program to create an equivalent machine 
language program on diskette. 
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print spooler for atari st 


* 

* 

LE/RB, 

5/11/85 


bios 

equ 

13 


keep 

equ 

$31 

hold resident prg 

gemdos 

equ 

1 


setexec 

equ 

5 

set xception vector 

conout 

equ 

3 

output character 

constat 

equ 

8 

output status 

prn 

equ 

0 

device # of printer 

savptr 

equ 

$4a2 

save area/ register 

hz_200 

equ 

$4ba 

200 hz system count 

xbios 

equ 

14 


mfpint 

equ 

13 

mfp interrupt 

k 



installed 

mfp 

equ 

$f f faOl 

mfp 68901 

psg 

equ 

$f f 8800 

psg ym 2149 

isrb 

equ 

$10 

interrupt service 

k 



register b 

default 

equ 

32 

standard buffer 

* 



size in kb 

timeout 

equ 

30 

30 seconds timeout 

* 



compute program size 


move . 1 

4 (sp) , aO 

base page address 


move . 1 

#$100, d6 

size of base page 


add . 1 

12 (aO) ,d6 

plus text length 


add . 1 

20 (aO) ,d6 

plus data length 


add . 1 

28 (aO) ,d6 

plus bss length 

* 


buffer 

size from command line 


moveq 

#0, d7 



moveq 

#0, dO 



lea 

129 (aO) , aO 

command line pntr 

nextchr 

move . b 

(aO) +,d0 

get character 


sub .b 

# ' 0 ' , dO 
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bmi 

exit 

no number 


cmp .b 

#9,d0 



bgt 

exit 

no number 


mulu 

#10, d7 

next place 


add 

dO, d7 



bra 

nextchr 


exit 

tst 

d7 

has no. been input? 


bne 

ok 

yes 


move 

#default , d7 

otherwise take 

* 



default number 

ok 

ext . 1 

d7 



moveq 

#10, dO 



lsl .1 

d0,d7 

convrt valu to bytes 


add . 1 

d7,d6 

add to place needs 


move 

d7, length 

and enter in iorec 

* 



initialize vectors 


move . 1 

#trapl3, - (sp) 

new vector 


move 

#45, - (sp) 

vector number 


move 

#setexec, - (sp) 



trap 

#bios 

set vector 


addq . 1 

#8, sp 



move . 1 

dO, trapsve 

note old vector 


move . 1 

#busyint , - (sp) 



move 

#0, - (sp) 

int number 


move 

#mfpint , - (sp) 



trap 

#xbios 

centronics interrupt 

★ 

addq . 1 

#8, sp 

enabled 


clr 

- (sp) 



move . 1 

d6, - (sp) 

number of bytes 


move 

#keep, - (sp) 

hold resident program 


trap 

#gemdos 

back to desktop 

* 


new trap#13 routine 

trap 13 

move . 1 

sp, a2 

mark ssp 


btst 

#5, (sp) 

call from supervisor? 


bne 

super 

yes 


move . 1 

usp, a2 

otherwise use usp 
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subq 

#6,a2 


super 

cmp 

bne 

#conout , 6 (a2) 
normal 

conout-call ? 


cmp 

bne 

#prn, 8 (a2) 
normal 

printer ? 


move . 1 

savptr, al 

pointer to save area 


move 

(sp) +,- (al) 

retain status 


move . 1 

(sp) +,- (al) 

return address 


move . 1 

al, savptr 

save ptr updates 


move 

bsr 

move . 1 

10 (a2) , dl 
print 

savptr, al 

character 


move . 1 

(al) +, - (sp) 

return address 


move 
move . 1 
rte 

(al) +, - (sp) 
al, savptr 

status 

normal : 


cmp 

bne 

cmp 

tconstat , 6 (a2 ) 

norml 

#prn, 8 (a2) 

printer status ? 

* 

bne 

norml 

over old trap#13 
vector 


moveq 

#-l, dO 

status ok taken 


bsr 

move 

bsr 

getptr 
tail (aO) , d2 
wrap 

get pointer 


cmp 

head (aO) , d2 

room in buffer? 


bne 

room 

yes 

room 

moveq 

rte 

#0, dO 

busy, no room 

norml 

move . 1 
jmp 

trapsve, aO 
(aO) 

to old trap #13 

print 

move 

#$2700, sr 

interrupt block 


bsr 

move 

getptr 
head (aO) , d2 

pntr to iorec & mfp 


cmp 

tail (aO) ,d2 

buffer empty? 
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bne 

inbuff 

no char in buffer 

loop 

btst 

bne 

# 0 , (al) 
inbuff 

printer busy ? 
yes, in buffer 

notbusy 

lea 

move . b 
move . b 

psg, a2 
#15, (a2 ) 
dl, 2 (a2 ) 

psg address 

reg. number port b 

output databyte 


move .b 
move . b 
and .b 
move . b 

#14, (a2) 
(a2) ,d0 
#$df , dO 
dO, 2 (a2) 

reg number port a 
strobe low 


or . b 
move . b 

#$20, dO 
dO, 2 (a2 ) 

strobe high 


moveq 
rt s 

#-l, dO 

ok 


inbuff 

move 

tail (aO) , d2 

increment 


bsr 

wrap 

write pointer 


cmp 

head (aO ) , d2 

buffer full? 


beq 

buf full 

yes 

inbuf f 1 

move . 1 

(aO) ,al 

buffer address 


move . b 

dl, <al,d2) 

write char to buffer 


move 

d2, tail (aO) 

mark new tail index 


moveq 

rts 

#-l, dO 

character disposed of 

buf full 

move . 1 

hz_200, dO 



add . 1 

# timeout *200, 

dO num seconds to wait 


move 

#$2300, sr 

interrupts freed up 

wait 

cmp 

head (aO ) , d2 

more room in buffer? 


bne 

inbuf f 1 

yes-char into buffer 


cmp . 1 

hz_200, dO 

time up yet? 


bhi 

wait 

no-keep waiting 


moveq 

rts 

#0, dO 

char not disposed of 

* 

interrupt routine for 

sending a character 

* 

to the 

printer 
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busyint 

movem. 1 

d0-d2/a0-a2, - 

(sp) retain 

★ 

bsr 


register 


getptr 

get pointer 


move 

head(aO) , 62 



cmp 

tail (aO) , d2 

send buffer empty? 


beq 

empty 

yes- ready 


bsr 

wrap 

incremnt read pointer 


move . 1 

(aO) ,a2 

buffer address 


move . b 

(a2, d2) ,dl 

send char from 


bsr 

notbusy 

buffer to printer 


move 

d2 , head (aO) 

mark new head index 

empty 

bclr 

#0, isrb (al) 

clr service bit 


movem . 1 
rte 

( sp ) + r d0-d2/ a0-a2 restore registers 

getptr 

lea 

iorec, aO 

pointer to 

* 

lea 

mfp, al 

buffer file record 


rts 



wrap 

addq 

#l,d2 

pointer to next pos . 


cmp 

len (aO) , d2 

reachd end-of-buf fer? 


bcs 

nowrap 

no 


moveq 

#0,d2 

otherwise start 

* 



at the beginning 

nowrap 

rts 




. data 



iorec 

dc . 1 

buf 

buffer address 

length 

ds . w 

1 

buffer size 


dc . w 

0 

write index 


dc . w 

0 

read index 

buffer 

equ 

0 

offset in iorec 

len 

equ 

4 


head 

equ 

6 


tail 

equ 

8 



.bss 



trapsve 

ds . 1 

1 

alter trap#13 vector 

buf 

equ 

* start of 

buffer memory 
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BASIC loader for print spooler 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


open "R" , 1, "b : spool .prg”, 16 : rem drive b 
field#l,16 as bin$ 

: for i=l to 16: read x$ : if x$="*"then 150 
a=val ("&H"+x$) : s=s+a : a$=a$+chr$ (a) : next 
lset bin$=a$: rec=rec+l : put l,rec: goto 120 
data 60, 1A, 00, 00, 01, B0, 00, 00,00, 0A, 00, 00, 00,04,00,00 
data 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 20, 6F, 0 0, 04 
data 2C,3C,00,00,01, 00,DC, A8, 00, 0C,DC, A8, 00, 14,DC, A8 
data 00, 1C, 7E, 00, 70, 00, 41, E8, 00, 81, 10, 18, 90, 3C, 00, 30 
data 6B,0E,B0,3C,00,09, 6E, 08,CE,FC, 00, 0A,DE, 40, 60, E A 
data 4A,47,66,02,7E,20,48,C7,70,0A,E1,AF,DC,87,33,C7 
data 00,00,01,B4,2F,3C,00,00,00,7C,3F,3C,00,2D,3F,3C 
data 00,05,4E,4D,50,8F,23,CO,00,00, 01, BA, 2F, 3C, 00 , 00 
data 01,6C,3F,3C,00,00,3F,3C,00,0D,4E,4E,50,8F,42,67 
data 2F,06,3F,3C,00,31,4E,41,24,4F,08,17,00,05,66,04 
data 4E,6A,5D,4A, 0C,6A, 00,03,00,06,66,30,0C, 6A, 00,00 
data 00,08, 66, 28, 22, 79, 00, 00,04, A2, 33, IF, 23, IF, 23, C9 
data 00, 00, 04, A2, 32, 2A, 00, 0A, 61, 42,22,79,00,00, 04, A2 
data 2F,19,3F,19,23,C9,00,00,04,A2,4E,73,0C, 6 A, 00,08 
data 00, 06, 66, 20, 0C, 6A, 00, 00, 00, 08, 66, 18,70, FF, 61, 00 
data 00,C2,34,28,00,08, 61, 00,00, C8,B4, 68,00,06, 66,02 
data 70, 00, 4E, 73, 20, 79, 00, 00, 01, BA, 4E,D0, 46,FC, 27, 00 
data 61, 00, 00, A0, 34, 28, 00, 06, B4, 68, 00, 08, 66, 2E, 08, 11 
data 00, 00, 66, 28, 45, F9, 00, FF, 88, 00, 14, BC, 00, OF, 15, 41 
data 00, 02, 14, BC, 00, 0E, 10, 12, CO, 3C, 00, DF, 15, 40, 00, 02 
data 80, 3C, 00, 20, 15, 40, 00, 02, 70, FF,4E, 75, 34, 28, 00, 08 
data 61, 6E,B4, 68, 00, 06, 67, 0E, 22, 50, 13, 81,20, 00, 31, 42 
data 00, 08, 70, FF, 4E, 75, 20, 39, 00, 00, 04, BA, DO, BC, 00, 00 
data 17, 70, 46, FC, 23, 00, B4, 68, 00, 06, 6 6, DC, B0, B9, 00, 00 
data 04, BA, 62,F2,70,00,4E,75,48,E7,EO,EO,61,24,34,28 
data 00, 06, B4, 68, 00, 08, 67, 0E, 61, 26, 24, 50, 12, 32, 20 , 00 
data 61, 82, 31, 42, 00, 06, 08,A9, 00, 00, 00, 10, 4C,DF, 07,07 
data 4E,73,41,F9,00,00,01,B0,43,F9, 00,FF,FA, 01, 4E, 75 
data 52, 42, B4, 68, 00, 04, 65, 02, 7 4, 00, 4E, 75, 00, 00, 01, BE 
data 00, 00, 00, 00, 00, 00, 00, 00, 00, 44, 06, 12, 06, 88, AE, 18 

data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
data * 

close 1 : if s<> 29742 then print "Error in DATA!!": end 
print "Ok . " 
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2.3 RAM-disk for the ST 


If you've done any program development on the ST, then you’re familar 
with the number of steps required to create an executable prg file from the 
source. You need the editor, source file, compiler or assembler, linker, etc. 
In addition, several temporary files are created and deleted. These 
activities editing, compiling and linking — are disk-intensive activities. 
Longer programs may take 15 minutes or more to compile. In our opinion, 
too much of the time is spent loading and saving data in disk files. 

One way to speed up the process is to use a hard drive. This speeds up disk 
access by about 30 times. Another alternative, which is faster and much less 
expensive, is the RAM disk. 

What is a RAM disk? Quite simply, a RAM disk is a disk drive facsimile 
that's located in memory. By setting aside an area of memory in the ST and 
treating it like a peripheral device — a disk drive — you can get a super fast 
and super cheap disk drive. 

When data from the computer is sent to a RAM disk, it is not sent to the 
disk controller, but to the reserved memory. And it's done at the lightning 
speed of the 68000 processor — not at the plodding mechanical speed of a 
real disk drive. 

Reading and writing to and from the RAM disk is equivalent to copying data 
from one area of memory to another. 

To simulate the RAM disk, several routines are required. One routine is tied 
to the operating system. Three vectors are patched. These vectors are 
designed to be used by the hard disk, but can be used for our purposes 
here. They involve calls to the BIOS for reading/writing sectors, getting the 
BIOS parameter block (contains information about the physical organization 
of a disk) and determining if the diskette is changed. 

The RAM disk here will have the designation C. This corresponds to a 
value of 2 in the BIOS (0=dnve A, l=drive B, etc.). In the program, the 
normal vectors are altered to point to our routines. We determine if the RAM 
disk (drive C) is the intended destination by checking the drive number on 
the stack. If drive C is not the destination, we return control to the normal 
vector for drives A and B. 
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When starting the RAM disk program, the size of the RAM disk is passed 
as a parameter. You specify the capacity of the RAM disk in kilobytes (same 
as for the print spooler). You are not limited to the preset disk sizes (180, 
360, and 720K) — any size from 80K to 640K (on a 1040 ST) can be 
specified. 

On a 520 ST, values from 100 to 220K are possible. If you don't specify a 
parameter, the default is 100K. Using the assembler, you can change the 
default RAM disk capacity by changing the appropriate source code. 

Using the BASIC loader, you must change the underlined values with your 
new default value (high byte, low byte; example, for 300K; 01 2C). The 
RAM disk program automatically configures the BIOS parameter block for 
the specified parameter, creates a boot sector in RAM, and initializes the 
directory. 

To install the RAM disk, execute the RAMDISK . prg program, with or 
without parameters. The capacity of the RAM disk is specified by installing 
this application from the OPTIONS menu as a TTP (TOS Takes Parameters) 
file. When the RAMDISK. PRG application is started, simply enter the 
desired capacity in the dialog box and press <RETURN>. Next click the 
icon for drive A and choose the selection INSTALL DISK drive from 
the OPTIONS menu. Enter C for the disk drive identifier, and RAM_D ISK 
for the icon label. Then click the INSTALL box. A new disk icon appears 
on the screen with the label RAM_D I SK. 

You can now open the RAM disk by double-clicking this icon. A window 
with the identification C then appears, containing 0 objects with 0 bytes. 
You can copy programs or files from drive A or B to the RAM disk. This is 
done exactly as if we were using actual disk drives. 

Try loading a program from the RAM disk. Programs up to 100K will load 
in less than one second! 

How can we best use the RAM disk? If you write a lot of programs and 
documents you should put the editor and source program on die RAM disk. 
If you have enough room, put the compiler, assembler and linker on the 
RAM disk also. A complete assembler pass may take up to ten minutes with 
a regular disk drive. The same pass will take less than a minute with the 
RAM disk. 
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Warning: Remember that your data on the RAM disk is only in RAM — it 
will be lost forever when you turn the power off! Copy the results of your 
work from the RAM disk to a real disk drive before turning the computer 
off! You should also do the same before you start untested programs that 
might cause the system to crash. 

Here are a few hints for working with the RAM disk: 

• It's not possible to back up an entire floppy disk to the RAM 
disk, or vice versa. Instead, try the following method. Open a 
window of the drive to which you want to copy. Then drag the 
icon of the diskette from which you want to copy into the 
window. 

• You should also not try to format the RAM disk. Doing so may 
damage the diskettes in drives A and B. Instead, draw a box 
around an the file icons on the RAM disk, and drag them to the 
trash. This is done very quickly with the RAM disk. 

• You can also automatically install the RAM disk after 
power-up. To do this, place a folder titled AUTO on your 
system disk and copy the installation program ramdisk . prg 
to it. When you select SAVE DESKTOP from the OPTIONS 
menu, your configuration with the installed RAM disk is stored 
in the file desktop .inf. Make sure this file is saved on 
drive A and not drive C. If it is saved on drive C copy it to 
drive A. From then on, every time the system is booted, the 
RAM disk is automatically installed as drive C. 


INSTALL DISK DRIVE 

Drive Identifier! C 

Icon Label: RAH.DISKl 


jlnstall 1 j Renove 1 1 Cancel 1 
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* 

* RAM disk for ATARI ST 

* LE/RB, 6/11/85 

* 


hdv bpb 

equ 

$472 

bios parameter block 

hdv rw 

equ 

$476 

read/write sectors 

hdv_mediach 

equ $47e 


drvbits 

equ 

$4c2 

bit vectors of 

* 



active drives 

gemdos 

equ 

1 


keep 

equ 

$31 


xbios 

equ 

14 


super 

equ 

38 


default 

equ 

100 

standard capacity 

X 



in kb 

init 

move . 1 

4 (sp) , aO 

base page address 


move . 1 

#$100, d6 

size of base page 


add . 1 

12 (aO) ,d6 

text length 


add . 1 

20 (aO) ,d6 

data length 


add . 1 

28 (aO) ,d6 

bss length 


moveq 

#0,d7 



moveq 

#0, dO 



lea 

129 (aO) , aO 

pointer to 

★ 



command line 

nextchr 

move . b 

(a0)+,d0 

first character 

★ 



from command line 


sub .b 

# ' 0 ' , dO 



bmi 

exit 



cmp . b 

#9, dO 

number? 


bgt 

exit 



mulu 

#10, d7 



add 

d0,d7 

next digit 


bra 

nextchr 


exit 

tst 

d7 

input done there? 


bne 

ok 
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move . w 

fdefault , d7 

default value 

ok 

moveq 

#0,dl 



move 

d7,dl 

capacity in k 


add 

#9, dl 

plus 9 k 


lsl . 1 

#8, dl 



lsl.l 

#2,dl 

* 1024 

* 

add . 1 

dl, d6 

add to memory 




requirements 


move . 1 

finitl, - (sp) 


* 

move 

tsuper, - (sp) 

initialization in 




supervisor mode 


trap 

txbios 



addq . 1 

# 6, sp 



clr 

- (sp) 



move . 1 

d6, - (sp) 

number of bytes 


move 

#keep, - (sp) 

leave resident prg 


trap 

tgemdos 

return to desktop 

init 1 

move . 1 

hdv__bpb, bpbsave 


move . 1 

#bpb,hdv_bpb 


* 

move . 1 

hdv_rw, rwsave 

set vectors to 




new routines 


move . 1 

#rw, hdv_rw 



move . 1 

hdv_mediach, mediasave 


move . 1 

#media,hdv mediach 

install 

moveq 

#0, dl 



lea 

ramdisk, aO 



move 

#2*9*512/4-1, d0 





clear tracks 0 and 1 

iloopl 

move . 1 

dl , ( aO ) + 

of ram disk 


dbra 

dO , iloopl 



* 

generate boot sector 

lea ramdisk+11, aO 
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lea 

boottab, al 



moveq 

#tabend-boottab-l, dO 

bloop 

move . b 

(al)+, (a0) + 

copy data in 

* 

dbra 

dO, bloop 

boot sector 


move 

d7 , numcl 

capacity in kb 

* 



in bpb 


lsl 

#l,d7 

sector capacity 


add 

#18, d7 

plus 18 sectors 


lea 

ramdisk+19, aO 



move . b 

d7, (a0) + 

low-byte 


lsr 

#8,d7 



move . b 

d7, (aO) 

high-byte 


or . 1 
rts 

#%100, drvbits 

inform drive c 

bpb : 

cmp 

#2, 4 (sp) 

drive c ? 


beq 

bpbl 

yes 


move . 1 

bpbsave, aO 

old routine 


jmp 

(aO) 


bpbl 

move . 1 

tbpbtab, dO 

pointer to bios 

* 

rts 


parameter block 

rw 

cmp 

#2,14 (sp) 

drive c ? 


beq 

rwl 

yes 


move . 1 

rwsave, aO 

old routine 


jmp 

(aO) 


rwl 

move 

12 (sp) , dO 

recno, logical 

★ 

ext . 1 

dO 

sector number 


lsl . 1 

#8, dO 



lsl . 1 

#1, dO 

times 512 


move . 1 

6 (sp) , aO 

buffer address 
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move 

subq 

10 (sp) , dl 
#1, dl 

number of sectors 


lea 

ramdisk, al 

basis address 

* 

add . 1 

dO, al 

plus relative 
address in ram disk 


move 

4 (sp) , dO 

rwf lag 


btst 

#0, dO 

read? 


beq 

rloopO 

yes 

* 

exg 

aO, al 

exchange destination 
and source 

rloopO 

move 

#511, dO 

copy a sector 

rloop 

move . b 
dbra 

(al) +, (aO) + 
dO, rloop 

to buffer 


dbra 

dl, rloopO 

next sector 


moveq 

rts 

#0, dO 

ok 

media 

cmp 

#2,4 (sp) 

drive c ? 


beq 

medial 

yes 


move . 1 
jmp 

mediasave, aO 
(aO) 

old routine 

medial 
bpbtab : 

moveq 

rts 

. data 

#0, dO 

diskete not changed 

recsiz : 

dc . w 

$200 

sector size 

clsiz 

* 

dc . w 

2 

cluster size 
in sectors 

clsizb 

* 

dc . w 

$400 

cluster size 
in bytes 

rdlen 

* 

dc . w 

7 

directory length 
in sectors 

f siz 

dc . w 

5 

fat size 

fatrec 

dc . w 

6 

fat sectors 

datrec 

* 

dc . w 

18 

sectors for 
data management 

numcl 

ds . w 

1 

capacity in kb 
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flags 

ds . w 

8 

boottab : 


* 


dc .b 

0,2 


dc . b 

2 


dc . b 

1,0 


dc .b 

2 


dc .b 

112,0 


ds . b 

2 


dc . b 

0 


dc .b 

5,0 


dc .b 

9,0 


dc . b 

1,0 


dc . b 

0 

tabend 

equ 

* 


.bss 


bpbsave 

ds. 1 

1 

* 



rwsave 

ds . 1 

1 

mediasave 

ds .1 

ramdisk 

equ 

* 


data in 8086 format 
bytes per sector 
sectors per cluster 
reserved sectors 
fats 

directory entries 
sectors on media 
media descriptor 
sectors per fat 
sectors per track 
sides 
hidden 


room for old 
floppy vectors 


ram disk starts here 
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BASIC loader for RAM disk 

100 open "R" , 1, "b : ramdisk .prg", 16 : rem drive b 
110 f ield#l, 16 as bin$ 

120 a$=" " : for i=l to 16: read x$ : if x$="*”then 150 
130 a=val ( ,, &H ,, +x$) : s=s+a :a$=a$+chr$ (a) : next 
140 lset bin$=a$: rec=rec+l: put l,rec: goto 120 

150 data 60, 1A, 00, 00, 01, 5E, 00, 00, 00, 32, 00, 00, 00, 0C, 00, 00 

160 data 00, 00, 00, 00 , 00, 00, 00, 00, 00, 00, 00, 00, 20, 6F, 00, 04 
170 data 2C, 3C, 00, 00, 01, 00, DC, A8, 00, 0C,DC, A8, 00, 14, DC, A8 

180 data 00, 1C, 7E, 00,70, 00, 41, E8, 00, 81, 10, 18, 90, 3C, 00 , 30 

190 data 6B, 0E, B0, 3C, 00, 09, 6E, 08, CE, FC, 00, 0A,DE, 40, 60, EA 
200 data 4A, 47, 66, 04, 3E, 3C, 00, 64, 72, 00, 32, 07, D2, 7C, 00, 09 
210 data El, 89, E5, 8 9, DC, 81,2F, 30,00,00,00,62, 3F, 3C, 00, 26 

220 data 4E, 4E, 5C, 8F, 42, 67, 2F, 06, 3F,3C, 00,31, 4E, 41,23, F9 

30 data 00, 00, 04, 72, 00, 00, 01, 90, 23, FC, 00, 00, 00, E8, 00, 00 
240 data 04, 72, 23, F9, 00, 00, 04, 76, 00, 00, 01, 94, 23, FC, 00, 00 

250 data 01, 00, 00, 00, 04, 76, 23, F9, 00, 00, 04, 7E, 00, 00, 01, 98 

260 data 23, FC, 00, 00, 01, 4A, 00, 00, 04, 7E, 72, 00, 41, F9, 00, 00 
270 data 01, 9C, 30, 3C, 08, FF, 20, Cl, 51,C8,FF,FC, 41, F9, 00, 00 
280 data 01, A7, 43, F9, 00, 00, 01, 7E, 70, 11, 10, D9, 51,C8,FF,FC 
290 data 33, C7, 00, 00, 01, 6C, E3, 4F, DE, 7C, 00, 12, 41, F9, 00, 00 

300 data 01, AF, 10, C7, El, 4F, 10, 87, 00, B9, 00, 00, 00,04,00 , 00 

310 data 04, C2, 4E, 75, 0C, 6F, 00 , 02, 00, 04, 67 , 08 , 20, 79, 00, 00 
320 data 01, 90, 4E,D0, 20, 3C, 00, 00, 01, 5E, 4E, 75, 0C, 6F, 00, 02 

330 data 00, 0E, 67, 08,20,79,00, 00, 01, 94, 4E, DO, 30, 2F, 00, 0C 
340 data 48, CO, El, 88, E3, 88,20, 6F, 00, 06, 32, 2F, 00, 0A, 53, 41 

350 data 43, F9, 00, 00, 01, 9C,D3, CO, 30, 2F, 00, 04, 08, 00, 00, 00 
360 data 67, 02, Cl, 49, 30, 3C, 01, FF, 10, D9, 51, C8, FF,FC, 51, C9 
370 data FF, F4, 70, 00, 4E, 75, 0C, 6F, 00, 02, 00, 04, 67, 08,20, 79 
380 data 00, 00, 01, 98, 4E, DO, 70, 00, 4E, 75, 02, 00, 00, 02, 04, 00 

390 data 00,07,00,05,00,06,00,12,00,00,00,00,00,00,00,00 
400 data 00,00,00,00,00,00,00,00,00,00,00,02,02,01,00,02 
410 data 70, 00, 00, 00, 00, 05, 00, 09, 00, 01, 00, 00, 00, 00, 00, 4C 

420 data 1C, 0 6, 0E, 0 6, 0E, 06, 0C, 10, 06, 0E, 0C, 20, 08, 10, 1C, 2E 
430 data * 

440 close 1 : if s<> 26687 then ? "Error in DATA! ! ” : end 
450 print "Ok." 
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2.4 Auto-starting TOS applications 


On early versions of ST, the operating system is loaded from disk to 
memory and started. To initiate this procedure, the ST has a boot ROM 
which automatically executes when the computer is turned on. The boot 
ROM loads a special boot sector from the system diskette, which in turn 
loads the rest of the operating system. 

The boot sector occupies the first sector on the system disk (track zero, 
sector one) and contains data about the disk format, capacity, number of 
tracks and sectors, and size and organization of the directory. The boot 
program is contained only on a systems disk. So that the ST can recognize a 
system disk, the checksum of this sector is $ 1234 . 

Normally, after the operating system is loaded, the GEM desktop is started. 
But the operating system can start a program called COMMAND . prg instead. 
This may be a user program which runs under TOS, for example. How do 
we get the operating system to do this? 

Within the boot sector is a flag which determines whether the desktop or 
command . PRG is started. If the flag is zero, the desktop is started. If the 
value at the address is not zero, COMMAND . prg is started. The value of the 
flag is copied to the system variable cmdload which is found at $ 482 . 
After the operating system is loaded, it uses cmdload to decide which 
program to start. 

To be able to start an application on boot-up, we must modify the boot 
sector. Following is a small utility program to do this. 

The program performs several functions: 

First the boot sector from drive A is read and the flag for cmdload is set in 
the boot sector. 

Now we can rewrite the boot sector to drive B. But, recall that there is a 
checksum to identify the boot sector. Changing a value within the sector 
changes the checksum. The operating system will no longer recognize the 
disk as a systems disk. Instead of determining the new checksum, we can 
let the operating system do it for us. Function protobt creates a boot 
sector or changes one already existing. 
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We specify that the boot sector is to be executable and all other parameters 
^tesTe“eaor Sed ' ThiS r °" tine recalculates ,h <= ch “ ks “ m 

to* US • iu a PP lication to be automatically started after booting 

o the modified disk. The program must have the name COMMAND . prg. 

If we reboot with this disk in drive A, this program is automatically started! 

This program requires a disk with a boot sector to be in drive A, such as the 
system disk. This program will read the boot sector and then write the 
modified boot sector to drive B. 
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* 

* modification of boot sectors for cmdload 

* LE 11/11/85 

* 


gemdos 

equ 

1 


xbios 

equ 

14 


f loprd 

equ 

8 

read sector 

f lopwr 

equ 

9 

write sector 

protobt 

equ 

18 

genrate boot sector 

cmdload 

equ 

$le 

offset in boot sector 

* 


load boot sector 


move 

#1/ - (sp) 

one sector 


move 

#0, - (sp) 

side zero 


move 

#0, - (sp) 

track zero 


move 

#1/ - (sp) 

sector zero 


move 

#0, - (sp) 

drive a 


clr . 1 

- (sp) 



move . 1 

#buf fer , - (sp) 

buffer address 


move 

#f loprd, - (sp) 

boot read sector 


trap 

#xbios 



add . 1 

#20, sp 



tst 

dO 

error occurred? 


bne 

exit 

yes- break 

* 


boot sector modified 


lea 

buffer, aO 

buffer address 


move . b 

#1, cmdload (aO ) set cmdload flag 

* 


make boot sector operational again 


move 

#l,-(sp) 

make boot sector 

* 



operational 


move 

#-l, - (sp) 

disk type stays same 


move . 1 

#-l, - (sp) 

serial number 

* 



stays the same 
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exit 


buffer 


move . 1 

#buf fer, - (sp) 

boot sector address 

move 

tprotobt, - (sp) call function 

trap 

#xbios 


add . 1 

#14 , sp 



write altered 

boot sector back in 

move 

#1, - (sp) 

one sector 

move 

#0, - (sp) 

side zero 

move 

#0, - (sp) 

track zero 

move 

#1, - (sp) 

sector zero 

move 

#1/ ~ (sp) 

drive b 

clr . 1 

- (sp) 


move . 1 

♦buffer, - (sp) 

buffer address 

move 

#f lopwr, - (sp) 

boot zero 

trap 

txbios 

add . 1 

#20, sp 


clr 

- (sp) 


trap 

#gemdos 

return to desktop 

. bss 

ds .b 

512 

room for a sector 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 


open "R", 1, ”b:cmdload.prg", 16 : rem drive b 
field#l,16 as bin$ 

a$=" M : for i=l to 16: read x$ : if x$= ,, *”then 150 
a=val ("&H"+x$) : s=s+a : a$=a$+chr$ (a) : next 
lset bin$=a$: rec=rec+l: put l,rec: goto 120 
data 60, 1A, 00,00,00,84,00,00,00,00,00,00,02,00,00,00 
data 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 3F,3C, 00, 01 
data 3F,3C, 00, 00,3F,3C, 00, 00, 3F, 3C, 00, 01, 3F, 3C, 00 , 00 
data 42, A7, 2F, 3C, 00, 00, 00, 84, 3F, 3C, 00, 08, 4E, 4E,DF,FC 
data 00, 00, 00, 14, 4A, 40, 66,54, 41,F9, 00, 00,00,84,11,70 
data 00, 01, 00, IE, 3F,3C, 00, 01, 3F, 3C,FF,FF,2F, 3C,FF,FF 
data FF,FF, 2F,3C,00,00,00,84,3F,3C, 00, 12, 4E, 4E,DF,FC 
data 00,00,00,OE,3F,3C,00,01,3F,3C,00,00,3F,3C,00,00 
data 3F,3C,00, 01, 3F,3C, 00, 01, 42, A7,2F, 3C,00,00,00, 84 
data 3F,3C,00,09,4E,4E,DF,FC,00,00,00,14,42,67,4E,41 
data 00, 00, 00, 18, 16, 1A, 28, 00, 00, 00, 00, 00, 00, 00, 00, 00 
data * 

close l:if s<> 8275 then print "Error in DATA !!": end 
print "Ok." 
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2.5 Using machine language and C 


In this section we 11 demonstrate how to use machine language subroutines 
from C programs. w 

Writing a program in C is usually much easier and faster than writing it in 
machine language. But when it comes to optimizing time-critical parts of a 
program, you must often rewrite these sections in machine language. Since 
the C compiler creates an assembly language program as an intermediate 
step, you might be tempted to optimize these parts by hand— changing the 
assembly language program. 

How can you pass parameters between the C program and assembly 
language subroutine and get a result back? Parameters are usually passed on 
the stack: 


int parameter]., parameter2; 
long parameter3 ; 

function (parameterl,parameter2,parameter3) ; 

The C compiler generates the following assembler language statements from 
the above call: 


move . 1 parameters, - (sp) 
move.w parameter2, - (sp) 
move.w parameter 1, - (sp) 
jsr _function 

addq.l #8,sp 


Note that the parameter list is processed from the back to the front, and also 
that the function is called with the JSR instruction. The C compiler places 
an underline character in front of the subroutine name. So that the linker can 
find the name in the assembly language program, it is declared as global. 

For the assembly language program, the parameters are found on the stack 
as follows: 


8 (sp) 

long 

6 (sp) 

word 

4 (sp) 

word 

0 (sp) 

long 


parameters 
parameter2 
parameterl 
return addres 


from jsr call 


91 



Abacus Software 


Atari ST Tricks and Tips 


You must ensure that the types of the parameters in the call match those in 
the subroutine; the compiler and linker cannot check types. 

You must also pay attention to the register usage. An assembly language 
subroutine may change the contents of registers D0-D2 and A0-A2. No 
other register contents may be changed. If a function returns a result, it is 
expected in register DO. In this case, the compiler assumes that the function 
value is of type int or word, as with the following call: 

a=function (parameter) ; 

If the function returns a long result, it must be explicitly declared before 
the function is called, like this: 

long function (); 
long a; 

a=function (parameter) ; 

Armed with this knowledge, you should be able to use assembly language 
subroutines. Following is an example of such a subroutine; it displays the 
directory. You'll see several GEMDOS calls. Toward the end of the listing 
is the short program main. 

The function expects two parameters: The first determines the drive (0=A, 
1=B); the second is a selection string that you can specify to select 
subdirectories, for example. If the second parameter is a null string, then all 
files are displayed. Twenty files are displayed per screen. Pressing a key 
displays the next twenty files. 
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* 

* 

* 

Display directory 


* 

* 

LE 11/11/85 



* 

BIOS -functions 



bios 

equ 

13 

TRAP# 


conin 

equ 

2 

console 

input 

conout 

equ 

3 

console 

output 

con 

equ 

2 

console 

device# 

* 

GEMDOS- 

functions 


gemdos 

equ 

1 

TRAP# 


wrtstr 

equ 

9 

string 

output 

setdrv 

equ 

$e 

drive selection 

setdma 

equ 

$la 

declare 

dma-address 

getspc 

equ 

$36 

free bytes 

sf irst 

equ 

$4e 

search 

first 

snext 

equ 

$4f 

search 

next 

cr 

equ 

13 

carriage return 

If 

equ 

10 

line feed 

f iletyp 

equ 

%11001 

file attribute 

wrtchar 

move 

d0, - (sp) 


output char in 


move 

#con, - (sp) 



move 

# conout , 

- (sp) 



trap 

#bios 




addq. 1 

#6, sp 




rts 




blank 

move . b 

# ' ’ , dO 


output blanks 


bra 

wrtchar 



newline 

lea 

crlf (pc) 

, aO 

new line 

wrttxt 

move . 1 

a0, - (sp) 


text address 


move 

fwrtstr , 

- (sp) 

string output 


trap 

#gemdos 




addq . 1 

#6, sp 
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rts 

.globl _directory open access for C 


* 

6 (sp) 

filename pointer 


* 

4 (sp) 

drive number 


* 

0 (sp) 

return address 


directory : 




move 

4 (sp) , curdrv 

drive number 


move . 1 

6 (sp) , aO 

filenames 


movem . 1 

d3-d7/a3-a6, - (sp) retain 

* 

move . 1 

aO, a3 

C-register 


move . 1 

tdmabuf , - (sp) 



move 

tsetdma, - (sp) 

dma buffer address 


trap 

#gemdos 



addq . 1 

#6, sp 



move 

curdrv, - ( sp) 



move 

#setdrv, - (sp) 

select drive 


trap 

#gemdos 



addq . 1 

#4, sp 



tst .b 

(a3) 

filename onhand? 


bne 

dirl 

yes 


lea 

allfile (pc) , a3 

' * . * ' as name 

dir 1 

move 

#f iletyp, - (sp) 



move . 1 

a3,- (sp) 

filename pointer 


move 

#sfirst , - (sp) 



trap 

tgemdos 



addq . 1 

#8, sp 



tst 

dO 

file onhand? 


bne 

enddir 


dircont 

moveq 

#20-1, d7 

number of lines 

nxtf ile 

bsr 

wrtname 

output filename 


move . 1 

size, dO 

size in bytes 


bsr 

wrtlng 

output as dec num. 


bsr 

blank 



move 

date, d3 

date 


bsr 

wrtdate 

output 


bsr 

blank 

blank line 


move 

time, d3 

time 


bsr 

wrttime 

output 
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bsr 

newline 

new line 


move 

#snext , - (sp) 



trap 

tgemdos 

look for next file 


addq. 1 

# 2 , sp 


tst 

dO 

onhand? 


dbne 

d7 , nxtf ile 



bne 

enddir 

no 


move 

Icon, - (sp) 

wait for keypress 


move 

Iconin, - (sp) 


trap 

#bios 



addq. 1 

#4 , sp 



bra 

dircont 

and continue 

enddir 

move 

curdrv, - (sp) 

drive 


addq 

#lf (sp) 

l=a, 2=b 


move . 1 

#buf fer, - (sp) 



move 

tgetspc, - (sp) 

free space on disk 


trap 

tgemdos 


addq . 1 

#8, sp 



move 

buf fer+2 , dO 

size 


bsr 

wrt3dec 

show as 3-digit 


lea 

kfree (pc) , aO 

dec . number 


bsr 

wrttxt 



movem . 1 

(sp) +, d3-d7/a3 

~s6 C-register 




return 

return 

rts 



wrtname 

lea 

f ilenam, a6 

filename formatted 

* 

clr 

d6 

output 

namloop 

move . b 

(a6) +, dO 

get character 


beq 

endnaml 

name to end? 


cmp .b 

# ' . • ,d0 



beq 

extens 

continue via 

* 

addq 

#l,d6 

extension 


bsr 

wrtchar 

output character 


bra 

namloop 


extens 

cmp 

#9,d6 

fill name to 8 

* 

beq 

contue 

places 


addq 

#l,d6 
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bsr 

blank 

fill with blanks 


bra 

extens 


contue 

move . b 

(a6) +, dO 

extension output 


beq 

endnaml 


addq 

#l,d6 



bsr 

wrtchar 



bra 

contue 


endnaml 

cmp 

#14 , d6 

end of name? 


beq 

return 



bsr 

blank 

fill with blanks 


addq 

#1, d6 



bra 

endnaml 


wrtdate 

bsr 

blank 

date display 


move 

d3, dO 


and 

#%11111, dO 

isolate day 


bsr 

wrt2dec 

and display 


bsr 

wrtpkt 

' . ' as separator 


move 

d3, dO 



lsr 

#5, dO 



and 

#%1111, dO 

isolate month and 


bsr 

wrt2dec 

display 


bsr 

wrtpkt 

' . ' as separator 


move 

d3, dO 



lsr 

#8, dO 



lsr 

#1, dO 

isolate year 


add 

#80, dO 

add offset 


bra 

wrt2dec 

and output 

wrtpkt 

move . b 

#’ . ’ ,d0 

output period 


bra 

wrtchar 


wrttime 

bsr 

blank 

output time 


move 

d3,d0 



lsr 

#8, dO 



lsr 

#3, dO 

isolate hour 


bsr 

wrt2dec 

and output 


bsr 

wrtcol 

' : ' as separator 


move 

d3,d0 



lsr 

#5, dO 



and 

#%111111, dO 

isolate minutes 



96 



Abacus Software 


Atari ST Tricks and Tips 



bsr 

wrt2dec 

and output 


bsr 

move 

and 

wrtcol 
d3, dO 

#%lllll,dO 

' : ' as separator 


lsl 

#1, dO 

isolate seconds 


bra 

wrt2dec 

and output 

wrtcol 

move . b 
bra 

# ' : * , dO 
wrtchar 

output colon 

wrt3dec 

* 

moveq . 1 

#3 , d6 

display dO as 
3-digit no. 

* 

clr 

ext . 1 
bra 

d4 

dO 

wrtlngl 

suppress leading 
zeroes 

wrt2dec 

moveq 

#2,d6 


* 

ext . 1 

dO 

dO as 2-digit 
decimal number 

* 

st d4 

bra wrtlngl 

leading zeroes not 
suppressed 

* 

hex number in dO 

.1 to decimal 

wrtlng 

* 

clr 

moveq 

d4 

#10, d6 

suppress leading 
zeroes flag 

wrtlngl 

movem . 1 
move . 1 

dl-d3/d6-d7 , - 
d0,d7 

(sp) 

wrtdec5 

moveq 
move . 1 
subq. 1 
beq 

#1 , d2 
d6,dl 
#1, dl 
wrtdecl 


wrtdecO 

move 

mulu 

swap 

mulu 

swap 

add 

swap 

d2,d3 
#10, d3 
d2 

#10, d2 
d3 

d3,d2 

d2 

10*d3 . 1 to d3 
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swap 

d3 




move 

d3, d2 




subq . 1 

#l,dl 




bne 

wrtdecO 



wrtdecl 

clr . 1 

dO 



wrtdec3 

cmp . 1 

< 12 , 6.1 




bit 

wrtdec2 




addq . 1 

#l,dO 




sub . 1 

62,61 




bra 

wrtdec3 



wrtdec2 

tst . b 

dO 


zero? 


bne 

wrtdec4 


no — output 


tst 

d4 




bne 

wrtdec4 


suppress leading 

* 




zeroes 


cmp 

#1,66 


last place? 


beq 

wrtdec4 


yes-- display zero 


bsr 

blank 


leading zeroes 

* 

bra 

wrtdec6 


displayed as blanks 

wrtdec4 

add . b 

#’0' ,d0 




bsr 

wrtchar 


display number 


St 

d4 


set flag 

wrtdec6 

subq . 1 

#l,d6 




bne 

wrtdec5 




movem . 1 

(sp) +, dl 

-d3/d6-d7 


rts 




allfile 

dc .b 

" 0 


all files 

kf ree 

dc .b 

” K free 

It 


crlf 

dc .b 

cr, If, 0 




.bss 




dmabuf 

ds .b 

22 

dma buffer for gemdos 

time 

ds . w 

1 

time 


date 

ds . w 

1 

date 


size 

ds . 1 

1 

file 

size 

f ilenam 

ds .b 

14 

file 

name 

curdrv 

ds . w 

1 

current drive number 

buffer 

ds .b 

16 

file 

size buffer 
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The following short program in C can serve as a test for the directory 
subroutine. 

/* 

* test program for directory display 

* LE 11 / 11/85 
*/ 

main ( ) 

{ 

directory (0,""); 

/* drive a, all files */ 

directory (1, "* .PRG") ; 

/* drive b, prg-files only */ 

} 


If you call the C source program direc . c and the assembly language 
program dir . s, then you would use the following command line after 
compilation and assembly for linking: 

dir . 68k=apstart , direc, dir 
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BASIC loader for directory display 


1000 open"R", 1, "brdir.prg", 16 
1010 field#l,16 as bin$ 

1020 a$="" : for i=l TO 16: read d$:if d$=”*”then 1050 

1030 a=val ( "&H"+d$) : s=s+a : a$=a$+chr$ (a) :next 
1040 lset bin$=a$ : rec=rec+l :put l,rec:goto 1020 
1050 data 60, 1A, 00, 00, 02, 72, 00, 00, 01, 64, 00, 00, 04, 42, 00, 00 
1060 data 00, 00, 00, 00, 00, 00, 00, 00, 00 , 00 , 00, 00, 2A, 4F, 2E, 7C 
1070 data 00, 00, 07, D6, 2A, 6D, 00, 04, 20 , 2D, 00, 0C,D0, AD, 00 , 14 
1080 data DO, AD, 00, 1C,D0, BC, 00, 00, 01, 00, 2F, 00, 2F, 0D, 3F, 00 
1090 data 3F, 3C, 00, 4A, 4E, 41,DF,FC, 00, 00, 00, 0C, 4E,B9, 00, 00 
1100 data 00, 4A, 2F, 3C, 00, 00, 00, 00, 4E, 41, 22, 2F, 00, 04, 30, 3C 
1110 data 00,C8,4E,42,4E,75,4E, 56, FF, FC, 2E, BC, 00, 00, 03, CE 
1120 data 42, 67, 4E,B9, 00, 00, 00, 9A, 54, 8F, 2E,BC, 00, 00, 03, CF 
1130 data 3F, 3C, 00, 01, 4E,B9, 00, 00, 00, 9A, 54, 8F, 4E, 5E, 4E, 75 
1140 data 3F, 00, 3F, 3C, 00, 02, 3F, 3C, 00, 03, 4E, 4D, 5C, 8F, 4E, 75 
1150 data 10, 3C, 00, 20, 60,EA, 41, FA, 01, E2, 2F, 08, 3F, 3C, 00, 09 
1160 data 4E, 41, 5C, 8F, 4E, 75, 33, EF, 00, 04, 00, 00, 08, 06, 20, 6F 
1170 data 00, 06, 48, E7, IF, IE, 26, 48, 2F, 3C, 00, 00, 07, DA, 3F, 3C 
1180 data 00, 1A, 4E, 41, 5C, 8F, 3F, 39, 00, 00, 08, 06, 3F, 3C, 00, 0E 
1190 data 4E, 41, 58, 8F, 4A, 13, 66, 04, 47, FA, 01, 94, 3F, 3C, 00, 19 
1200 data 2F, 0B, 3F, 3C, 00, 4E, 4E, 41, 50, 8F, 4A, 40, 66, 46, 7E, 13 
1210 data 61, 70, 20, 39, 00, 00, 07, F4, 61, 00, 01, 14, 61, 92 , 36, 39 
1220 data 00, 00, 07, F2, 61, 00, 00, 9E, 61, 86, 36, 39, 00, 00, 07, F0 
1230 data 61, 00, 00, CO, 61, 80, 3F, 3C, 00, 4F, 4E, 41, 54, 8F, 4A, 40 
1240 data 56,CF,FF,CE, 66, 0E, 3F, 3C, 00, 02, 3F, 3C, 00, 02, 4E, 4D 
1250 data 58, 8F, 60, BA, 3F, 39, 00, 00, 08, 06, 52, 57, 2F, 3C, 00 , 00 
1260 data 08, 08, 3F,3C, 00, 36, 4E, 41, 50, 8F, 30,39, 00, 00, 08, 0A 
1270 data 61, 00, 00, AC, 41, FA, 01, 1C, 61, 00, FF, 40, 4C,DF, 78, F8 
1280 data 4E, 75, 4D,F9, 00, 00, 07, F8, 42, 46, 10, IE, 67, 28, B0, 3C 
1290 data 00, 2E, 67, 08, 52, 46, 61, 00, FF, 08, 60, EE, BC, 7C, 00, 09 
1300 data 67, 08, 52, 46, 61, 00, FF, 0A, 60, F2, 10, IE, 67, 08, 52, 46 
1310 data 61, 00,FE,EE, 60,F4,BC, 7C, 00, 0E, 67, C4, 61, 00,FE,F2 
1320 data 52, 46, 60, F2, 61, 00, FE, EA, 30, 03, CO, 7C, 00, IF, 61, 56 
1330 data 61, 18, 30, 03, EA, 48, CO, 7C, 00, OF, 61, 4A, 61, 0C, 30, 03 
1340 data E0, 48, E2, 48, DO, 7C, 00, 50, 60, 3C, 10 , 3C, 00, 2E, 60, 00 
1350 data FE, B0, 61, 00, FE, BC, 30, 03, E0 , 48 , E6, 48, 61, 28 , 61, 16 
1360 data 30 , 03, EA, 48, CO, 7C, 00 , 3F, 61, 1C, 61, 0A, 30, 03, CO , 7C 
1370 data 00, 1F,E3, 48, 60, 10, 10, 3C, 00, 3A, 60, 00, FE, 84, 7C, 03 
1380 data 42, 44, 48 , CO, 60, OC, 7C, 02 , 48 , CO, 50, C4, 60, 04, 42 , 44 
1390 data 7C, OA, 48, E7, 73, 00, 2E, 00, 74, 01, 22, 06, 53, 81, 67, 1A 
1400 data 36, 02,C6,FC, 00, OA, 48, 42,C4,FC, 00, OA, 48, 43, D4, 43 
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1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1730 


data 48,42, 48,43,34,03,53,81, 66, E6, 42, 80, BE, 82, 6D, 06 
data 52,80,9E,82,60,F6,4A, 00, 66,10, 4A, 44,66, 0C,BC,7C 
data 00,01, 67,06, 61,00, FE,3A, 60,0A,D0,3C, 00,30,61,00 
data FE, 20, 50, C4, 53, 86, 66, BO, 4C,DF , 00 , CE, 4E, 75, 2A, 2E 
data 2A, 00,20, 4B, 20, 66,72, 65, 65, 2E, 0D, 0A, 00, 00, 00, 01 
data 00,02,01,01,02,01,01,00,01,01,02,01,01,01,01,01 
data 00,00,00,00,00,00,00,00,00,00,01,00,00,01,00,03 
data 05,00,05,05,00,00,01,01,02,01,00,10,07,01,02,01 
data 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 01, 01, 01, 02, 01, 01 
data 02,01,01,02,01,01,01,01,02,01,01,01,00,00,00,00 
data 00,00,00,00,00,00,00,00,02,01,01,01,01,01,06,01 
data 01,04,01,01,01,03,01,02,01,01,04,02,01,08,01,01 
data 00,00,00,00,00,00,01,01,01,09,01,01,01,01,01,01 
data 01,00,00,05,01,00,00,00,00,00,00,00,00,00,00,00 
data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
data 00,00,04,03,00,08,03,00,06,01,00,08,01,00,08,01 
data 00,04,01,01,03,01,01,00,05,00,01,01,01,00,05,00 
data 00,01,01,00,01,01,00,00,00,00,00,00,00,00,00,00 
data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,02 
data 02,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
data 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 05, 01, 00, 05 
data 01,00,01,01,00,01,01,00,02,05,00,06,01,00,02,01 
data 00, 01, 01, 00, 06, 05, 00, 00, 00, 00, 00, 01, 01, 00, 01, 00 
data 02, 01, 00, 02, 01, 01, 01, 01, 01, 00, 00, 00, 00, 00, 00, 00 
data 00,00,00,00,00,00,00,00,00,01,02,03,01,02,01,01 
data 01,01,01,01,00,01,01,00,01,02, 00, 2 A, 2E, 50, 52, 47 
data 00, 00, 00, 00, 00, 04,2E, IE, 08, 08, 0A, 34,10,0E,2C,0C 
data 0C,2A, 08, OE, 18, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
data * 

close 1 : if s<> 49400 then print"ERROR IN DATA!" tend 
print "Ok." 
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Sample screen dump of directory display program 




8 

12,88,38 

12; 36 I 52 


i 

e 

12,88,18 

12 1 36; 52 

CHDLOfiD 

PRO 

160 

84.81,36 

ll!l5;18 

DIR 

0 

1884 

29,85,85 

18; 22; 34 

DIR 

S 

7563 

84.81,36 

15; 15; 28 

DIR 

PRO 

1030 

84,81,36 

15;15;23 

CMDLOAD 

80S 

553 

84.01,36 

15; 15 i 32 

DIREC 

0 

212 

23,85,35 

17:34:86 

DISKTIME 

OAK 

4554 

84.01,36 

15; 15; 42 

SPOOL 

BAS 

2136 

04,81,36 

15; 15; 48 

RAMDISK 

BAS 

1562 

84,81,36 

15;15;54 

RAMDISK 

PRO 

445 

84,81,36 

15;20;02 

SPOOL 

PRO 

431 

84,81,36 

15; 28; 86 

CMDLOAD 

S 

1513 

84,81,36 

15;28;10 

DIREC 

c 

221 

23,85.35 

17 ,74 

if 1 vHsiJj. 

DISKTIME 

s 

4608 

23,85,35 

10;18;34 

RAMDISK 

s 

5363 

34,81, 36 

15; 20; 28 

SPOOL 

s 

7858 

84,81,36 

15; 20; 34 

DISKTIME 

BAS 

1553 

23,85.35 

18; 28; 13 

DISKTIME 

PRO 

443 

23,85.35 

13;26;54 
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3.1 ST hardcopy 


One of the ST's most fascinating features is its great graphic capabilities. 
We don't have to tell you how crisp the hi-res mode is with the 
monochrome monitor. You can enjoy its graphics the minute you turn it on. 

But there is one problem: how do we put these terrific images on paper? To 
be sure, there is as hardcopy routine in GEM. But this works only on a 
"normal" dot matrix printer. The various colors are shown as levels of grey. 
There is even a routine for a special color printer, but we never found out 
which one. Consequently, we wrote our own routine — and it's written so 
that it can be easily adapted to other printer models. 

We also tried to get hardcopy on standard (color) plotters with a demo 
version of the drawing program GEMDRAW. We ran into problems with 
this, because we didn't know of a suitable hardcopy algorithm. But we 
solved this problem as well, as you’ll see shortly. 

We have also included a section on the layout of the graphics RAM. This 
layout will certainly prove useful when you implement your own graphics 
ideas. 

The programs are all documented, so it won't be hard to modify them to suit 
your own needs. In addtion, we have listed both programs in BASIC, so 
even if you don't have an assembler you can still use the programs. 
Included in this chapter are many high-quality screen photos and 
hardcopies. 

Note: For publishing reasons the color pages must be bound together. All 
the color illustrations are labeled as Plates. All Plates are located in the color 
section at the end of this book. 
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3.2 The screen display 


The ST's screen display is memory mapped from video RAM. This is both 
a strength and weakness. 32K of video RAM is set aside for the screen 
display. 

For graphics, the setup of video RAM is ideal. Points can be easily set and 
reset, thereby making graphics display extremely fast. 

For text, the setup is less than ideal. To display a character, the character's 
image is copied pixel by pixel from the RAM-based font set directly to video 
RAM. This method is much slower than other hardware character 
generators, and the slow speed is especially noticeable during scrolling, 
when a large amount of memory must be moved. This would be unbearable 
if the 68000 wasn't so fast. 

Obviously the ST is designed to optimize graphics at the expense of text. 
Let's talk more about the ST's graphics. 

In high-resolution mode (640x400), the ST allows two colors: black and 
white. Figure 3.2-1 illustrates the relationship of video RAM to the screen 
display. Since there are only two colors in hi-res mode, one bit suffices to 
determine the color. Thus one bit in video RAM corresponds to one point 
on the screen. The high-order bit of the first word of video RAM 
corresponds to the upper left-hand point of the screen. Figure 3.2-2 is a 
hardcopy of this screen display mode. 

In medium-resolution mode (640x200), the ST allows four colors. How is 
the color represented in video RAM? In this mode, two bits of video RAM 
correspond to one point on the display. The two bits represent the color of 
that point. Two bits can contain up to four different values: 0, 1, 2 and 3. 
As you can see from figure 3.2-3, the two bits are adjacent words in video 
RAM. So that the display appears full with a reduced number of vertical 
points, a point in medium resolution mode is stretched, so that a point is 
really a short vertical line. 
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Figure 3.2-1 

High Resolution Mode (2) 



Video Ram 
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Figure 3.2-3 

Medium Resolution Mode (1) 



Video Ram 
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You can see the results of the stretched pixels in figure 3.2-4. The letters 
appear to be taller than in hi-res mode. 

In low-resolution mode (320x200), the ST allows up to 16 colors. This is 
done similarly to the medium resolution mode, but four bits are are used to 
represent one "point" on the screen. Four bits can contain up to 16 different 
values, each one representing a different color. Figure 3.2-5 illustrates how 
four adjacent words are used to represent one point. A "point" is stretched 
horizontally and vertically. 

You can see the results of the stretched pixels in lo-res mode in figure 
3.2-6. 
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Figure 3.2-4 
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Figure 3.2-5 

Low Resolution Mode (0) 



Video Ram 
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Figure 3.2-6 
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3.3 Color hardcopy programs 


Next we have two programs for getting hardcopy. One produces hardcopy 
to a color dot-matrix printer, and the other to a plotter. 

We've chosen to use common peripherals. We’ve used Epson devices 
because they are readily available and reasonably priced. These routines 
may be adapted for other devices by changing a few constants in the 
program. 

Both hardcopy programs are designed so they can be started simply and 
easily. Each copies itself behind video RAM (where there are 768 bytes 
free) and remains there while the ST's power is on. Hardcopy is activated 
by <ALT> <HELP>. 

Some of the pictures reproduced in the color plate section are done with the 
permission of Atari Corp. Our thanks especially to Sig Hartmann. 
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3.3.1 Color dot-matrix printer hardcopy 


This program was a difficult one for us to write. 

First we had to decide how to represent the screen on paper. Without color, 
the screen appears dark while the paper is white. We decided to make light 
colors on the screen appear light on the paper as well. This may sometimes 
result in unsatisfactory pictures, as in Plate 4. 

This version of the hardcopy works with an Epson JX-80, which is a color 
version of the popular FX-80. The JX-80 has a wide color ribbon. The 
three basic colors and black are organized in narrow bands on the ribbon. 
This yields seven colors that the printer can produce automatically. This 
program is limited to these seven colors. 

To change the color, a motor moves the ribbon color in front of the 
printhead. Each screen line is scanned for a specific color and the 
appropriate pixels on the line are printed in this color. 

If the entire 16-color spectrum of the low-resolution mode is used, the 
hardcopy may take considerable time to complete. For example, hardcopy in 
Plate 7 takes about one-half hour to complete. 

Following is the assembly language listing for the color printer hardcopy: 
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* 

Epson 

jx-80 hardcopy 

★ 

org 

$cba 


gemdos 

equ 

1 


xbios 

equ 

14 


prchar 

equ 

5 


sbase 

equ 

2 


getres 

equ 

4 


af f 

equ 

-2 

no. colors 

afc 

equ 

-4 

color counter 

pwf 

equ 

-6 

words/pixel 

hmf 

equ 

-8 

hor multipl 

vmf 

equ 

-10 

vert multipl 

zbl 

equ 

-14 

base line 

zwf 

equ 

-16 

no. words/line 

zwc 

equ 

-18 

no. words counter 

znf 

equ 

-20 

no. points/line 

znc 

equ 

-22 

no. points counter 

baf 

equ 

-24 

vert status 

zzc 

equ 

-2 6 

line counter 

zol 

equ 

-30 

line offset 

ab 

equ 

-31 

even bits found 

fl 

equ 

-32 

div flags 

★ 

bit 

0 

bit of corresponding color found 

★ 

bit 

1 

0=test / l=print 

ctf 

equ 

-48 

color table 

maf 

equ 

-64 

mask no. 

pf lag 

equ 

$4ee 

flag alt/help 

super 

equ 

32 

supervisor mode 

stcol 

equ 

7 

setcolor 

dummy 

lea 

dummy, a0 dummy for dumb loader 


clr . 1 

- (a7) 



move . w 

♦super, 

~(al) 


trap 

# gemdos 



addq . 1 

#6,a7 



move . 1 

d0,d6 



move . w 

#sbase. 

~(al) 


trap 

#xbios 



addq. 1 

#2,a7 



movea . ' 

1 dO, aO 



adda . w 

#$7d00. 

aO 


lea 

(aO) , a2 



lea 

start (pc) , al 


116 


Abacus Software 


Atari ST Tricks and Tips 


reloc 


start : 


move . 1 

#f in-start-1, dO 

move . b 

(al) +, (aO) + 

dbra 

dO, reloc 

movea . 1 

$456, aO 

adda 

#28, aO 

move . 1 

a2, (aO) 

move . 1 

d6,-(a7) 

move . w 

#super, - (a7) 

trap 

#gemdos 

addq . 1 

#6,a7 

rts 


clr . 1 

-(a7) 

trap 

#gemdos 

tst 

pf lag 

beq 

stO 

rts 



in case basic is called 


want hardcopy? 
yes — 


★ 


* parameter initialization * 

* * 


link 

a6,#-66 

ceate room for working space 

move . w 

#sbase, - (a7) 

get physical 

trap 

#xbios 

screen base 

addq . 1 

#2,a7 


move . 1 

dO, zbl (a6) 


move . w 

#getres, - (a7) 


trap 

#xbios 


addq. 1 

#2,a7 


lsl . w 

#1, dO 


move . w 

dO, (a6) 


lea 

aft (pc) , al 


move . w 

0 (al, dO . w) , af f (a6) 

moveq 

#l,d7 

if high-res, prepare color no. 
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stl 


stlO 


moveq 

o 

00 

=#= 

and mask no 

move . b 

#7 , ctf (a6) 



clr .b 

ctf +1 (a6) 



cmpi . w 

#1, aff (a6) 

hi-res 

? 

beq 

st52 

yes 


move . w 

aff (a6) ,d7 



move . w 

#-l,-(a7) 



move . w 

d7,-(a7) 



move . w 

#stcol, - (a7) 



trap 

#xbios 

color 

to dO 

addq. 1 

#6,a7 



clr . w 

d4 



clr .b 

maf (a6,d7 .w) 



move . w 

dO, dl 



moveq 

#2,d5 



lsl. w 

#4,dl 



lsr .b 

#4, dl 



or .b 

dl,d4 

hue > 

d4 

lsr .w 

#4, dl 



dbra 

d5, stlO 




move .b d4,maf (a6, d7 . w 



cmpi . b 

#l,d4 

* 

bis 

st22 


moveq 

#2,d6 


move 

#$444, d5 

stll 

move 

d5,d3 


and 

dO,d3 


bne 

stl2 


lsr 

#l,d5 


dbra 

d6, stll 

stl2 

moveq 

CM 

=#= 


clr . w 

d5 

st2 

andi 

#$7ff,d3 


cmpi . w 

#$ff ,d3 


bis 

st21 


bset . 1 

d4,d5 

st21 

lsl . w 

#4,d3 


dbra 

d4, st2 


cmpi .b 

#7,d5 


black intensity under 

stepped? 

yes — 

load mask 

look for highest bit 
found > 

mask set below 


determine color (to d5) 


white? 
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bne 

st5 

no — 


cmpi .b 

#5,maf (a6, d7) 

pure white? 


bhi 

st5 

yes — 


addq.b 

#2,maf (a6,d7) 

thin out mask and 

st22 

clr 

d5 

set black 

st5 

move . b 

d5, ctf (a6,d7 .w) 



cmpi . b 

#6,d5 

yellow? 


bne 

st50 

no — 


subq.b 

#2,maf (a6,d7) 

widen mask 

st50 

dbra 

d7 , stl 



moveq 

#15, d7 


st51 

moveq 

#8, dO 



cmpi .b 

#3,maf (a6,d7) 

brightness > lowest 

★ 



intensity? 


bis 

st52 

no — 


lsr 

#1, dO 



cmpi .b 

#6,maf (a6,d7 . w) 

brightness > highest 

★ 



intensity? 


bis 

st52 

no — 


clr 

dO 


st52 

move .b 

dO,maf (a6,d7 . w) 



dbra 

d7 , st51 



move . w ( a 6 ) , dO 

lea pwt(pc),al 

move . w 0 (al f dO .w) , pwf (a 6) 

lea hmt(pc),al 

move . w 0 (al , dO . w) , hmf (a 6 ) 

lea vmt(pc),al 

move . w 0 (al,d0.w) , vmf ( a 6 ) 

lea zwt(pc),al 

move . w 0 (al,dO .w) , zwf (a6) 

lea znt(pc),al 

move . w 0 (al,dO .w) , znf (a6) 

lea bat(pc),al 

move.w 0 (al,dO .w) ,baf (a6) 

move.w #50,zzc(a6) 

clr.b fl(a6) 

bra nlO 
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************************************************************ 
* * 

* next line * 

* 7 k 


nl : 



subq. w 

#1, zzc (a6) 

line counter run through? 


beq 

exit 

yes — 


move . 1 

zbl(a6) ,d7 

line basis 


addi . 1 

#640, d7 

to increment 


move . 1 

d7, zbl (a6) 

a line 

nlO 

lea 

lftab (pc) , a5 

linefeed 


moveq 

#4,d7 

on 


bsr 

If 

printer 


move . w 

aff (a6) ,afc(a6) 

color counter 


move a . 1 
bra 

zbl (a6) , a3 
slO 

line basis 


*****^****************************************************** 

★ 



* 

★ 

next color 

* 

* 



* 

************************************************************ 

si : 

tst . w 

pf lag 

hardcopy break? 


bne 

exit 

yes — 


subq. w 

#1, af c (a6) 

color counter done running? 


bmi 

nl 

yes — new line 


bra 

slO 


slOO 

bchg.b 

#1, f 1 (a6) 

last run just a test ? 


bne 

si 

no — it was printed 


btst .b 

#0 , f 1 (a6) 

point in the line found? 


beq 

slOO 

no — 


lea 

ctf (a6) , al 



adda . w 

af c (a6) , al 



clr . w 

d6 



move . b 

(al) ,d6 



cmpi .b 

#7,d6 

white? 


beq 

slOO 

yes — don’t print it 
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slO 


lea 

prel (pc) ,a5 

moveq 

#3,d7 

bsr 

If 

lea 

ct (pc) , al 

move . b 

0 (al, d6 . w) ,d0 

bsr 

chout 

lea 

pre2 (pc) ,a5 

moveq 

#5,d7 

bsr 

If 

move . w 

zwf (a6) , zwc (a 

bclr .b 

#0, f 1 (a6) 

lea 

0, a4 

move . w 

afc (a6) ,d7 

clr.w 

dO 

move . b 

maf (a6,d7 .w) ,< 

lea 

mask (pc) , aO 

move . 1 

0 (a0,d0.w) ,d2 

bra 

swO 


color change 
on 

printer 


no. of words/line 

color number sought 
load mask 




* 


* 

* 

* 

next word 

* 

* 

sw: 

subq.w #l,zwc(a6) 

word counter run? 


beq slOO 

yes — 


movea.l zol(a6),a4 

line offset 


adda.w pwf(a6),a4 

words/pixel 


adda.w pwf(a6),a4 

*2 

swO 

move.w #$8000, d5 

bitmask for test 


move.l a4,zol(a6) 
bra sbO 

save line offset 

* 

* 

* 

next bit 

* 

* 

* 

sb: 

lsr.w #1, d5 

all bits in word ready? 
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sbO 


beq 

sw 

move . w 

znf (a6) 

clr.b 

d4 

move a . 1 

zol (a6) 

bra 

tb 


yes — 

znc(a6) no. of pins/line 
a4 




* 



* 

* 

next pin 

* 

* 



* 

************************************************************ 

bs : 





clr . 1 

d.7 



move . w 

vmf (a6) ,d7 

vertical multiplier 


subq 

#l,d7 


bsO 

lsl.b 

#l,d4 



or .b 

ab(a6) ,d4 



dbra 

d7,bs0 



adda . w 

baf (a6) , a4 

vertical condition of points 


subq. w 

#1, znc (a6) 

pin counter run? 


bne 

tb 

no — test points 


tst .b 

d4 

a point given? 


beq 

bsOO 

no — 


bset .b 

#0,fl(a6) 


bsOO 

btst .b 

#1, f 1 (a6) 

should it be printed? 


beq 

sb 

no — 


clr . 1 

d7 



move . w 

hmf (a6) ,d7 

horizontal multiplier 


subq 

#1, d7 


bsl 

move . b 

d4,d0 



and.b 

d2,d0 

byte masked 


bsr 

chout 

and output 


ror . 1 

#8,d2 

rotate raster mask 


dbra 

d7,bsl 



bra 

sb 



* * 

* test bit * 

* * 
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tb: 



clr . w 

d3 



clr . 1 

d6 



move . w 

pwf (a6) ,d6 

words/pixel 


move . w 

d6,d0 



lsl . w 

#1, dO 

next word 


subq.b 

#l,d6 



lea 

0 (a3,a4) ,a0 



lea 

0 (a0,d0.w) ,a5 


tbl 

lsl .b 

#1, d3 

bits collected for color 

★ 



number 


subq . 1 

#2,a5 



move . w 

(a5) ,d7 



and. w 

d5,d7 

bit set? 


beq 

tb2 

no — 


bset . 1 

#0, d3 


tb2 

dbra 

d6, tbl 



clr .b 

ab(a6) 



cmp.w 

afc (a6) ,d3 

color number being sought? 


bne 

tb3 

no — 


bset .b 

#0, ab (a6) 

point marked as found 

tb3 

bra 

bs 


★ 

★ 

* 

output 


* 

* 

* 

exit : 





unlk 

a6 

free up workspace 


move . w 

#-l,pflag 

hardcopy ready 


rts 



* 

* 

* 

string 

on (a5) output 

* 

with counter in d7 * 

****************************** 

★ 

****************************** 

If: 





andi . 1 

#$fff f ,d7 
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subq 

* 1 , 6.1 

move . b 

0 (a5,d7) ,d0 

bsr 

chout 

dbra 

d7 , If 0 

rts 



************************************************************ 
* * 

* character in dO to printer * 

* * 
************************************************************ 


chout : 

move . w 
move . w 
trap 
addq . 1 
rts 


d0,-(a7) 
#prchar, - (a7) 
#gemdos 
#4,a7 


************************************************************ 
* * 

* constants * 

* * 
************************************************************ 


aft 

dc . w 

15,3,1 

pwt 

dc.w 

4,2,1 

hmt 

dc . w 

2,1,1 

vmt 

dc.w 

t — i 

CM 

CM 

zwt 

dc.w 

20,40,40 

znt 

dc.w 

00 

bat 

dc.w 

160,160,80 

mask 

dc.l 

$44001100 


dc.l 

$aa55aa55 


dc . 1 

-1 

ct 

dc .b 

0,2, 6, 2, 1,3, 4,0 

Iftab 

dc .b 

24, "J", 27, 13 

prel 

dc .b 

"r" , 27 , 13 

pre2 

dc . b 

2,128,4," *”,27 

fin 

equ 
. end 

* 


no. of colors 

words belonging to a pixel 
horizontal doubling 
vertical doubling 
words /line 
pins/line 

vertical state of lines 
color dimming 
averaging out from 
full 

printer color 
linefeed 8 pins 
color choice 
27 graphic mode & point counter 
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The data in the last 6 lines can be changed to adapt the program to other 
printers. Here you can enter the printer-specific control codes. Note that the 
control sequences are arranged in reverse order. 

If you do not have an assembler but still want to make changes "by hand" in 
the BASIC program, make sure that the length and position of the strings 
don’t change. If this happens, you'll have to change the reference 
addresses. 

The machine language program for loading from BASIC differs slightly 
from the assembler version. Since the program is called with CALL, it must 
be terminated with RTS and not with TERM via GEMDOS. 

5 rem BASIC loader for Epson JX— 80 hardcopy 

10 dim a% (415) 

20 for i=0 to 415 

30 read a%(i) 

40 next i 

50 b=varptr (a% (0) ) 

60 call b 

70 end 

950 data &H42A7 , &H3F3C, &H0020 

960 data SH4E41, 4H5C8F, 4H2C00, 4H3F3C, 4H0002, 4H4E4E, SH548F, 4H2040 

970 data 4HD0FC, 4H7D00, 4H45D0, 4H43FA, 4H0028, 4H203C, 4H0000, 4H02F9 
980 data 4H10D9, 4H51C8, 4HFFFC, &H2079, 4H0000, 4H0456, 4HD0FC, 4H001C 
990 data 4H208A, 4H2F06, SH3F3C, 4H0020, 4H4E41, 4H5C8F, &H4E75, 4H4E41 
1000 data 4H4A79, 4H0000, 4H04EE, 4H6702, 4H4E75, SH4E56, SHFFBE, 4H3F3C 
1010 data 4H0002 , 4H4E4E, 4H548F, 4H2D40, 4HFFF2, 4H3F3C, SH0004 , SH4E4E 
1020 data 4H54 8F, 4HE34 8, 4H3C80, &H43FA, SH0288, &H3D71, SHOOOO, &HFFFE 
1030 data SH7E01, SH7008, &H1D7C, &H0007, SHFFD0, SH422E, SHFFD1 , &H0C6E 
1040 data SH0001, &HFFFE, &H6700, SH009A, SH3E2E, SHFFFE, SH3F3C, SHFFFF 
1050 data &H3F07 , SH3F3C, SH0007, SH4E4E, &H5C8F, SH4244,SH4236, SH70C0 
1060 data &H3200,&H7A02,£HE949,&HE809,SH8801,SHE849,SH51CD, SHFFF8 

1070 data SH1D84, &H7OC0, SH0C04 , SH0001, SH633A, &H7C02 , SH3A3C, &H0444 
1080 data £H3605,&HC640,&H6606, SHE24D, SH51CE, SHFFF6, £H7802,SH4245 
1090 data SH0243, &H07FF, SH0C43, SH00FF, &H6302 , SH09C5, SHE94B, SH51CC 
1100 data SHFFF0, SH0C05, &H0007, SH660E, 4H0C36, & HO 005, SH70C0, SH6206 
1110 data SH5436, &H70C0, SH4245, SH1D85, 4H70D0, 4H0C05, 4H0006,4H6604 
1120 data 4H5536, 4H70C0, 4H51CF, 4HFF86, 4H7E0F, 4H7008, 4H0C36, 4H0003 
1130 data 4H70C0, 4H630C, 4HE248, 4H0C36, 4H0006,4H70CO,4H6302,4H4240 
1140 data 4H1D80, 4H70C0, 4H51CF , 4HFFE4 , 4H3016, 4H43FA, 4H01CA, 4H3D71 
1150 data 4HOOOO, 4HFFFA, 4H4 3FA, 4HOlC6,4H3D71,4H0000, 4HFFF8, 4H4 3FA 
1160 data 4H01C2, 4H3D71, 4H0000, 4HFFF6, 4H43FA, 4H01BE, 4H3D71, 4H0000 
117 0 data 4HFFF0, 4H43FA, 4H01BA, 4H3D71, 4HOOOO, 4HFFEC, 4H43FA, 4H01B6 
1180 data 4H3D71, 4H0000, 4HFFE8, 4H3D7C, 4H0032 , 4HFFE6, 4H422E, 4HFFE0 
1190 data 4H6016, 4H536E, 4HFFE6, 4H6700, 4H014C, 4H2E2E, 4HFFF2, 4H0687 
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1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 


data &H0000, &H0280, &H2D47 , &HFFF2, &H4BFA, &H0 1A4 , &H7E04 , &H610 0 
data &H0140, &H3D6E, &HFFFE, &HFFFC, &H266E, &HFFF2 , &H6054 , &H4A7 9 
data &H0000, &H04EE, &H6600, &H011E, &H536E, &HFFFC, &H6BC4 , &H6042 
data &H086E, &H0001 , &HFFE0, &H66E6, &H082E, &HOOOO , &HFFE0, &H67F0 
data &H43EE, &HFFD0, &HD2EE, &HFFFC, &H4246, &H1C11, &H0C06, &H0007 
data &H67DE, &H4BFA, &H015E, &H7E03, &H6100, &H00F6, &H43FA, &H0148 
data &H1031, &H6000, &H6100, &H00FE, &H4BFA, &H014B, &H7E05, &H6100 
data &H00E0, &H3D6E, &HFFF0, &HFFEE, &H08AE, &H0000, &HFFE0, &H49F9 
data &H0000, &H0000, &H3E2E, &HFFFC, &H4240, &H1036, &H70C0, &H41FA 
data &H010A, &H2430, &HOOOO, &H6012, &H536E, &HFFEE, &H67 92 , &H286E 
data &HFFE2 , &HD8EE, &HFFFA, &HD8EE, &HFFFA, &H3A3C, &H8000 , &H2D4C 
data &HFFE2, &H6004, &HE24D, &H67E0, &H3D6E, &HFFEC, &HFFEA, &H4204 
data &H286E, &HFFE2 , &H6044 , &H4287, &H3E2E, &HFFF6, &H5347 , &HE30C 
data &H882E, &HFFE1, &H51CF, &HFFF8, &HD8EE, &HFFE8 , &H536E, &HFFEA 
data &H6628, &H4A04, &H6706, &H08EE, &H0000, &HFFE0, &H082E, &H0001 
data &HFFE0, &H67C0 , &H42 87 , &H3E2E, &HFFF8, &H5347, &H1004, &HC002 
data &H6162, &HE09A, &H51CF, &HFFF6, &H60AA, &H4243, &H4286, &H3C2E 
data &HFFFA, &H3006, &HE348 , &H5306, &H41F3 , &HC000, &H4BF0, &H0000 
data &HE30B, &H558D, &H3E15 , &HCE45, &H6704, &H08C3, &HOOOO, &H51CE 
data &HFFF0, &H422E, &HFFE1, &HB66E, &HFFFC, &H6606, &H08EE, &H0000 
data &HFFE1, &H6082, &H4E5E, &H33FC, &HFFFF, &HOOOO, &H04EE, &H4E75 
data &H02 87 , &H0000 , &HFFFF, &H5347, &H1035, &H7000, &H6106, &H51CF 
data &HFFF8 , &H4E75, &H3F00, &H3F3C, &H0005, &H4E41, &H588F, &H4E75 
data &H000F, & HO 003, &H0001, &H0004, &H0002, &H0001 , &H0002 , &H0001 
data &H0001 , & HO 002, &H0002 , & HO 001, &H0014, &H0028, &H0028, &H0004 
data &H0004, & HO 008, &H00A0 , &H00A0, &H0050, &H4400, &H1100, &HAA55 
data &HAA55 , &HFFFF, &HFFFF, &H0002, &H0602 , &H0103, &H0400 , &H184A 
data &H1B0D, &H721B, &H0D02 , &H8004 , &H2A1B 
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3.3.2 Color plotter hardcopy 


Hardcopy to a plotter is quite different than hardcopy to a dot-matrix printer. 

While its possible to draw point by point with the dot-matrix printer, the 
method is really not practical with a plotter. By nature of its construction, a 
plotter is suited to drawing lines. How do we write a program to make the 
plotter draw actual lines, rather than a series of points? 

We can distinguish a line on the screen because of our familiarity with them 
as geometric forms. But a program recognizes a line only as a set of points. 
The programming objective is to make the computer recognize points that 
belong together, and then draw them as a curve or line. 

Our program uses the following method to accomplish this "point-to-line" 
conversion: 

When a point is found, we lower the pen and then turn a quarter of a 
rotation to the left (in screen memory) to see if a point is set there. If not, we 
rotate right (in screen memory) in eigths of a step to search for points in 
these directions. If we find a point, we move the pen to it, and start the 
procedure all over again. This continues until there is no bordering point is 
found at the current location. 

This complex-sounding procedure has the effect that all the contours of 
larger objects are traced. This is important for the appearance of the finished 
picture. You can clearly see this effect in the unfinished picture of figure 
3 * 3 * 2 _ 2 . 

This procedure has a disadvantage. After a point is found, it is removed 
from the screen, so that in later searches it is no longer recognized. 
Consequently, this procedure destroys the screen image. But it allows you 
to follow the program's progress on the screen. 
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When the hardcopy is completed, the screen is completely white. Therefore, 
make sure that your picture is saved, otherwise it will be destroyed. 

TTie program is designed for the Epson HI-80 plotter. You can easily adapt 
it for other plotters, since the command language is completely 
parameterized. 

The operation of the program takes longer than for the dot-matrix printer 
hardcopy. To allow for change of pens, for more than four colors, the 
plotter stops at the next color change after you press <ALT> <HELP> keys. 
Once you've changed the pens, press <ALT> <HELP> again to continue. 

The results are seen in Plate 6. Compare this with Plate 5. You can clearly 
see the limits of a plotter with multicolor use. 

In contrast to the dot-matrix printer hardcopy, Plate 7, the color of the 
background is ignored. It is always white. 

You can stop the current color output by pressing <ALT> <HELP> three 
times. 

In Plate 8 you see a peculiarity of plotter hardcopy. In medium resolution 
mode, the vertical dimesion becomes distorted, because a single "point” on 
the screen is actually two pixels. But since this program doesn’t correspond 
with this, the picture becomes compressed. You may also notice the text is 
in German, TOS is easily configured for foregin languages. 

Figure 3. 3. 2-3, dot-matrix hardcopy, and figure 3. 3. 2-4, plotter hardcopy, 
show the difference in results. Notice that diagonal lines are smoother on 
the plotter hardcopy. 

The assembly language listing follows. 
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Figures 3 . 32-4 
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* 

Epson 

HI-80 plotter 

hardcopy 

★ 

org 

$cba 


gemdos 

equ 

1 


bios 

equ 

13 


xbios 

equ 

14 


bconout 

equ 

3 


prt 

equ 

0 


phybas 

equ 

2 


setscr 

equ 

5 


super 

equ 

32 


intin 

equ 

8 


ptsin 

equ 

12 


wrmod 

equ 

36 


init 

equ 

$a000 


setpix 

equ 

$a001 


getpix 

equ 

$a002 


yko 

equ 

2 


pf lag 

equ 

$4ee 

flag alt/help 

apix 

equ 

-4 

total no. of pixels 

pscalx 

equ 

-6 

factor x 

pscaly 

equ 

-8 

factor y 

adir 

equ 

-10 

precise direction 

pdir 

equ 

-12 

orig. direction 

maxx 

equ 

-14 

number of x pixels 

maxy 

equ 

-16 

number of y pixels 

ccol 

equ 

-18 

precise color number 

acol 

equ 

-20 

number of colors 

comma 

equ 

-22 

comma w/ draw 


************************************************************ 
* * 

* program moves behind video ram * 

* * 




******************************* 

dummy 

lea 

dummy , a 0 

dummy for dumb loader 


clr . 1 

-<a7) 

set up 


move . w 

#super, - (a7) 

a privileged 


trap 

#gemdos 

regis- 


addq . 1 

#6,a7 

ter 


move . 1 

dO, d6 



move. w 

#phybas, - (a7) 

program start 
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reloc 


start : 


* 

* 

* 


param 


trap 

#xbios 

is 

addq . 1 

#2,a7 

video-basis 

move a . 1 

dO,aO 

+ 

adda . w 

#$7d00, aO 

length of 

lea 

(aO) ,a2 

video-ram 

lea 

start (pc) , al 


move . 1 

#f in-st art-1, dO 

load counter 

move . b 

(al) +, (aO) + 

move 

dbra 

dO , reloc 

program 

movea . 1 

$456, aO 

program hooks up 

adda 

#28, aO 

to the 

move . 1 

a2, (aO) 

vblank-queue 

move . 1 

d6,-(a7) 

priv. - 

move 

#super,- (a7) 

status 

trap 

#gemdos 

re- 

addq. 1 

#6,a7 

turns 

rts 


if called from basic 

clr 

-<a7) 


trap 

#gemdos 

terminate 

tst 

pf lag 

hardcopy desired? 

beq 

param 

yes — 

rts 

parameter initialization 

,***************************************************: 

move 

#phybas, - (al) 

get physical 

trap 

#xbios 

screen 

addq . 1 

#2,a7 

basis 

move 

#-l,-(a7) 

and 

move . 1 

d0,-(a7) 

match 

move . 1 

d0,-(a7) 

with 

move 

#setscr, - (a7 ) 

logical 

trap 

#xbios 

basis 

adda . 1 

#12, a7 


dc . w 

init 

get screen parameters 

link 

a6,#-24 

make room for work register 
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movea . 1 intin (aO) , a3 
movea.l ptsin(a0),a4 

clr wrmod(aO) set write mode 

move (a0),d7 no. of planes 

andi #6,d7 

lea scalx (pc) , aO 

move 0 (a0,d7) ,pscalx (a6) 

lea scaly (pc) , aO 

move 0 (aO, d7) , pscaly (a6) 

lea max(pc),aO 

move 0 (aO, d7) ,maxx(a6) 

lea may(pc),aO 

move 0 (aO, d7) ,maxy (a 6) 

lea cole (pc), aO 

move 0 (aO, d7) , acol (a 6) 

move maxx ( a 6 ) , d6 

mulu maxy(a6),d6 

move .1 d6, apix (a6) 

move #l,ccol(a6) color no. 1 

initl empi #l,pflag stop for color choice? 

bne init3 no — 

bsr caps 

init2 empi #2,pflag go on? 

bne init2 no — 

clr pflag 

init3 bsr setcol color choice 

bsr home plotter in output state 

pea -1 search begins at upper left 

************************************************************ 

* * 

* look for first pixel in a line * 

* * 

Ic'k'k'k'kli^'k'k'k'k'k'k'k'k'k’k’k’k’k'k'k'k'k'k'k’k'k'k'k'k'k'k'k’k'k'k-k'k'k'k'kJc'k'k'k'k'k'k'kJc’k'k'k'k'k'k-kJc'k 

srch move . 1 (a7)+,d7 


addq. 1 

#l,d7 


emp . 1 

apix ( a 6 ) , 6.1 

all pixels viewed? 

beq 

exit 

yes — 

move . 1 

d7,-(a7) 

save current position 

bsr 

chkpix 

look for next point 
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cmp ccol(a6),d0 

bne srch 

move #3,adir(a6) 


looked for color? 
no — 

search direction is right 


* 

* 

* * 


draw connected points 


plot 

bsr 

mov 

plotter to new position 


bsr 

pendwn 

pen down 


bsr 

erase 

clear point found 

plotl 

clr 

dO 



bsr 

nexpix 

look for a connected point 


tst 

dO 

past color found? 


bne 

plot2 

yes — 


bsr 

outer 

delimiter output 


bsr 

penup 

pen up 


bra 

srch 


plot2 

bsr 

draw 

lines to next point 


bsr 

erase 

clear point drawn 


bra 

plotl 

look for next point 


************** 

* 

******************************************** 

* 

* 

look for next connected 

point 

********************************************************** 

nexpix 

subq 

#2, adir (a6) 

l/4-turn left 


andi 

#7 , adir (a6) 

0-7 only allowed 


move 

adir (a6) ,pdir (a6) mark output direction 


bra 

nex3 


nexl 

movem 

(a7 ) +, d3-d4 

get old coordinates 


addq 

#1, adir (a6) 

1/8-turn right 


andi 

#7, adir (a6) 

only 0-7 allowed 


move 

pdir (a6) , d7 



cmp 

adir (a6) ,d7 

output point again? 


bne 

nex3 

no — 
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clr 

dO 


rts 



nex3 move 

adir (a6) ,d7 

jump 

lsl 

#l,d7 

dependent upon 

lea 

j (pc) , aO 

direction 

adda 

0 (aO, d7) , aO 

save previous 

movem 

d3-d4, - (a7) 

coordinates 

jsr 

(aO) 

jump 

cmp 

ccol (a6) ,d0 

past colors found? 

bne 

nexl 

no-look in another direction 

addq . 1 

#4,a7 

correct stack 

rts 


connect the dots 


* * 

* direction-dependent jumps * 

* * 

j 

dc . w 

re- j, ru- j , un 

- j r lu- j , li- j , lo- j , ob- j , ro- j 

re 

addq 

cmp 

bcs 

rts 

#l,d3 

maxx (a6) , d3 
askpix 

right 

reached end-of-line? 
no — 

ru 

addq 

cmp 

bcs 

rts 

#l,d3 

maxx (a6) , d3 
un 

lower right 
end-of-line? 
no — 

un 

addq 

cmp 

bcs 

rts 

#l,d4 

maxy (a6) , d4 
askpix 

bottom 

end-of -screen? 
no — 

lu 

addq 

cmp 

bcs 

rts 

#1, d4 

maxy (a6) , d4 
li 

lower left 
end-of -screen? 
no — 
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li 

subq 

bpl 

rts 

#l,d3 

askpix 

left 

still 

no end 

lo 

subq 

bpl 

rts 

#l,d3 

ob 

upper 

still 

left 
no end 

ob 

subq 

bpl 

rts 

#l,d4 

askpix 

top 

still 

no end 

ro 

subq 

bpl 

rts 

#1, d4 
re 

upper 

still 

right 
no end 




* 



* 

* 

★ 

test 

for set pixels 

* 

************************************************************ 

chkpix 

divu 

maxx (a6 ) , 61 

convert 


move 

d7 , d4 

d7 to 


swap 

d7 

y 


move 

d7 , d3 

and x 

askpix 

cmpi 

#3, pf lag 

ruin the color? 


bcs 

askl 

no — 


move 

#l,pf lag 

eventual pen change enabled 


bra 

exit 

color ready > 

askl 

move 

d3, (a4) 

coordinates 


move 

d4, yko (a4) 

loaded 


dc . w 
rts 

getpix 

line a reads point 


* * 

* pixel cleared * 

* * 
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home lea hm(pc),a2 plotter in home position 

bra outstrx 

setcol lea scols(pc),a2 color put in from cool 

bsr outstrx 

lea scoln(pc),a2 

move ccol(a6),d7 

move.b -1 (a2, d7) ,d0 

bsr outchr 

bra outer 

penup lea pup(pc),a2 pen up 

bra outstrx 

pendwn clr comma (a6) pen down 

lea pdw(pc),a2 

bra outstrx 

mov lea mv(pc),a2 positioning w/o pen 

bsr outstrx 

bsr outcor 

bra outer 

draw tst comma (a6) positioning w/ pen 

bne drawl 

st comma (a6) 

lea dr (pc) , a2 

bsr outstrx 

bra outcor 
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drawl 

outcor 


outw 

outwl 

outw3 

outw4 

outstrx 

outstr 

* 

caps 

outer 

outcom 

outchr 


bsr 

outcom 




move 

d3,d6 

coord pair output 

as 

ascii 

mulu 

pscalx (a6) , d6 




bsr 

outw 




bsr 

outcom 

output comma 



move 

maxy (a6) ,d7 

reversal of 



sub 

d4,d7 

y-coordinate 



move 

d7,d6 




mulu 

pscaly (a6) ,d6 




move . 1 

#1000, d7 

hex no. in d6 output 

as 

ascii 

andi . 1 

#$3fff,d6 




divu 

d7,d6 




move 

d6, dO 




ori 

#48, dO 




bsr 

outchr 




swap 

d6 




divu 

#10, d7 




bne 

outwl 




rts 





clr 

d2 string output (counter-1 

on 

(a2 ) ) 

move . b 

(a2)+,d2 




move .b 

(a2)+,d0 

string in (a2) output 




(counter in d2) 



bsr 

outchr 




dbra 

d2, outstr 




rts 





lea 

cap (pc) , a2 




bsr 

outstrx 




move 

#13, dO 

c/r 



bra 

outchr 




move 

#44, dO 

comma 



movem . 1 

dO-d2/aO-a2 , - 

(a7 ) 



andi 

#255, dO 




move 

dO, - (a7) 

character in dO 
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move #prt,-(a7) output to 

move #bconout, — (a7 ) printer 

trap #bios 

addq.l #6,a7 

movem.l (a7 ) +, d0-d2/a0-a2 

rts 


* output * 

* * 


exit 

addq 

#1, ccol (a6) 

color sought +1 


move 

acol (a6) ,d7 



emp 

ccol (a6) , d7 

all colors utilized? 


bpl 

init 1 

no — 

exitx 

unlk 

a6 

free up reserved space 


move 

#-l, pflag 

hardcopy-flag cleared 


bsr 

home 

plotter in home position 


bra 

+ + + + + 

caps 

pen tip 

★ 

★ 

* 

constants 

fcXXXXXX******************- 

A A A A A j 

■rxxxxxxx 

xxxxxx***********: 

************************* 

scalx 

dc . W 

4,4,4 

x factors 

scaly 

dc . w 

4,4,4 

y factors 

max 

dc . w 

640, 640,320 

number of x pixels 

may 

dc . w 

400,200,200 

number of y pixels 

cole 

dc . w 

1,3,15 

number of colors 

mv 

dc .b 

1 , ”MA" 

move absolute 

cap 

dc .b 

3, "SP-1" 

pen change 

pup 

dc . b 

5, "MR0, 0", 13 

move relative (pen up) 

pdw 

dc .b 

5, "DR0, 0", 13 

draw relative (pen down) 

dr 

dc .b 

1, "DA" 

draw absolute 

hm 

dc .b 

3,13, "HO", 13 

home position state 

scols 

dc . b 

1, "SP" 

color change 

scoln 

dc . b 

"123412341234123" 

fin 

equ 

★ 



.end 
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You can adapt the program to a different plotter. The commands for the 
HI-80 plotter are defined in the last section under constants, and can be 
easily adapted for another plotter. 

sea lx and scaly specify the number of steps the plotter will make for a 
point on the screen. The number of steps depends on the thickness of the 
pen. In this example, the pen thickness is 0.4 mm. 

Here's the equivalent BASIC loader: 

5 rem BASIC loader for plotter hardcopy 

10 dim a% (411) 

20 for 1=0 to 411 

30 read a%(i) 

40 next i 

50 b=varptr (a% ( 0) ) 

60 call b 

70 end 

950 data &H42A7 , &H3F3C, &H0020 

960 data SH4E41, SH5C8F, SH2C00 , SH3F3C, SHOO 02, SH4E4E, SH548F, SH2040 
970 data SHD0FC, SH7D00,SH45D0, SH43FA, SHO028,SH203C,SH000O,SHO2Fl 
980 data SH10D9, SH51C8, SHFFFC, SH2079, SH0000, SH0456, SHD0FC, SH001C 
990 data SH208A, SH2F06, SH3F3C, SH0020, SH4E41, SH5C8F, SH4E75, SH4E41 
1000 data SH4A79, SH0000, SH04EE, SH6702, SH4E75, SH3F3C, SH0002 , SH4E4E 
1010 data SH548F , SH3F3C, SHFFFF, SH2F00, SH2F00, SH3F3C, SH0005, SH4E4E 
1020 data SHDFFC, SH00O0, SHOOOC, SHA000, SH4E56, SHFFE8, SH2668, SH0008 
1030 data SH2868, SHOOOC, SH42 68 , SH0024 , SH3E10, SH024 7 , SH0006, SH41FA 
1040 data SH0264, SH3D70, SH7000, SHFFFA, SH41FA, SH0260, SH3D70, SH7000 
1050 data SHFFF8 , SH41FA,SH025C, SH3D70, SH7000, SHFFF2, SH41FA,SH0258 
1060 data SH3D70, SH7000, SHFFF0 , SH41FA, SH0254, SH3D70, SH7000, SHFFEC 
1070 data SH3C2E, SHFFF2, SHCCEE, SHFFF0, SH2D46, SHFFFC, SH3D7C, SH0001 
1080 data SHFFEE, SH0C79, SH0001 , SH0000, SH04EE, SH6614 , SH6100, SH01CE 
1090 data SH0C79, S HO 002 , SH0000 , SH04EE, SH66F6, SH4279, SHOOOO, SH04EE 
1100 data SH6100,SH012C,SH6100,SH0120,SH4879, SHFFFF, SHFFFF, SH2E1F 
1110 data SH5287 , SHBEAE, SHFFFC, SH6700, SH01CC, SH2F07 , SH6100 , SH00D2 
1120 data SHB06E, SHFFEE, SH66E8, SH3D7C, SH0003, SHFFF6, SH6100, SH012C 
1130 data SH6100, SH011E, SH6100, SH00E4, SH4240, SH6118, SH4A40, SH660A 
1140 data SH6100,SH0180,SH6100, S HO 104 , SH60C4 , SH6100,SH0118,SH6100 
1150 data SH00CA, SH60E4, SH556E, SHFFF6, SH026E, SH0007, SHFFF6, SH3D6E 
1160 data SHFFF6, SHFFF 4 , SH601C, SH4C9F, SH0018, SH526E, SHFFF6, SH026E 
1170 data SH0007, SHFFF6, SH3E2E, SHFFF 4, SHBE6E, SHFFF 6, SH6604 , SH424 0 
1180 data SH4E75, SH3E2E, SHFFF6, SHE34F, SH41FA, SH0016, SHD0F0, SH7000 
1190 data SH48A7, SH1800, SH4E90, SHB06E, SHFFEE, SH66CA, SH588F, SH4E75 
1200 data SH0010, SH001A, SH002 4 , SH002E, SH0038, SH003E, SH004 4 , SH004 A 
1210 data SH5243, SHB66E, SHFFF2, SH6542, SH4E75, SH5243, SHB66E, SHFFF2 
1220 data SH6502, SH4E75, SH5244, SHB86E, SHFFFO, SH652E, SH4E75, SH5244 
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1230 

data 

1240 

data 

1250 

data 

1260 

data 

1270 

data 

1280 

data 

1290 

data 

1300 

data 

1310 

data 

1320 

data 

1330 

data 

1340 

data 

1350 

data 

1360 

data 

1370 

data 

1380 

data 

1390 

data 

1400 

data 

1410 

data 

1420 

data 

1430 

data 

1440 

data 

1450 

data 

1460 

data 

1470 

data 


&HB86E, &HFFF0, &H6502 , &H4E75, &H5343, &H6A1E, &H4E75,&H5343 
&H6A02 , &H4E75, &H534 4 , &H6A12 , &H4E75 , &H534 4 , &H6AC2, &H4E75 
&H8EEE, &HFFF2, &H3807, &H4847, &H3607, &H0C79, &H0003 , &H0000 
&H04EE, &H650C, &H33FC , &H000 1 , &H0000 , &H04EE, &H6000, &H00D6 
&H3883 , &H3944, &H0 002 , &HA002 , &H4E75 , &H3 883 , &H3944 , &H0002 
&H4253, &HA001 , &H4E75 , &H45FA, &H0113,&H6000, &H0082, &H45FA 
&H0110, &H6100, &H007A, &H45FA, &H010B, &H3E2E, &HFFEE, & HI 032 
&H7 OFF , &H6100, &H0084 , &H6000, & HO 07 A, &H4 5FA, &H00DE, &H605E 
&H426E, &HFFEA, &H45FA, &H00DB, &H6054, &H45FA, &H00C6, &H614E 
&H611 6, &H605E, &H4A6E, &HFFEA, &H660C, &H50EE, &HFFEA, &H45FA 
&H00C8 , &H613A, &H6002,&H614E, &H3C03, &HCCEE , &HFFFA, &H610E 
&H6144, &H3E2E, &HFFF0, &H9E44, &H3C07, &HCCEE, &HFFF8 , &H2E3C 
&HOOOO , &H03E8 , &H028 6, &H0000, &H3FFF, &H8CC7 , &H3006, &H0040 
&H0030 , &H612 4 , &H484 6, &H8EFC, &H000A, &H66E8, &H4E75, &H4 24 2 
&H14 1A, &H101 A, &H6112, &H51CA, &HFFFA, &H4E75, &H45FA, &H0067 
&H61EC, &H700D, &H6002 , &H702C, &H48E7 , &HEOEO, &H0240, &H00FF 
&H3FOO , &H3F3C, &HOOOO , &H3F3C, &H0003 , &H4E4D, &H5C8F, &H4CDF 
&H0707 , &H4E7 5 , &H526E, &HFFEE, &H3E2E, &HFFEC, &HBE6E, &HFFEE 
&H6A00 , &HFDF0 , &H4E5E, &H33FC, &HFFFF, &H0000, &H04EE, &H6100 
&HFF26, &H60B8 , &H0004 , &HOOO 4 , & HO 004 , &H0004 , &H0004, &H0004 
&H0280, & HO 280, &H0140, & HO 190, &H00C8, &H00C8 , &H0001 , &H0003 
&H000F, &H014D , &H4 103, &H5350, &H2D31, &H054D, &H5230, &H2C30 
&HOD05 , &H4452, &H302C, &H300D, &H0144, &H4103, &H0D48, &H4F0D 
&H0153 , &H5031, &H3233,&H3431, &H3233, &H3431 , &H3233 , &H3431 
&H3233 
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The GEM programming environment 


GEM is designed to be an easy-to-use interface between the user and the 
ST. Additionally, GEM is designed to provide a convenient means for the 
programmer writing applications for the ST itself. 

In principle, it is simpler and faster to write a program for the ST than to 
write a program for a different computer. GEM contains dozens of 
subroutines which perform a variety of powerful functions. The 
programmer can use these routines simply by including them in his 
application. 

Designing applications for the ST is quite different than designing them for 
other computers.The programmer is responsible for maintaining the work 
station, window management, mouse and keyboard inputs, etc. Most ST 
programmers build their own collection of subroutines into a library to 
handle their programming housekeeping chores. 

Next we'll introduce you to several GEM routines that each application may 
use. We'll also describe how accessories and applications may be 
developed. 
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4.1 Inside GEM 


GEM is the graphics-oriented interface that makes the ST so easy to use . A 
user takes for granted the enormous complexity of this operating system that 
isolates him from the details of mouse control, icon structure, drop-down 
menu construction or window manipulation. He need not be concerned with 
the technical aspects of the ST. 

How long would it take a programmer to produce an application if he had to 
write his own routines for all these tasks? 

GEM's routines relieve the programmer of many of the repetitive details of 
using the ST. Most of the programming languages available for the ST offer 
libraries that provide access to GEM. The naming conventions are more or 
less uniform for the programming languages — allowing a programmer to 
easily move to a different language if he wants. 

GEM has simple routines for performing data input and output, and 
complex routines for managing dialog boxes. 

The two main parts of GEM are the VDI, or Virtual Device Interface, and 
the AES, or Application Environment Services. 

The VDI provides services for the hardware components of the computer. It 
handles all the device-specific details, such as converting coordinates for 
screen output or printer output, providing the graphics primitives such as 
line, circle or fill, or writing text to a disk file. 

The AES handles the "larger" tasks such as windows, drop-down menus 
and icons. It is responsible for controlling the mouse and keyboard input. 
The AES also handles multi-tasking operations. You may recall that the 
print spooler and clock display run concurrently while another application is 
active. These are multi-tasking operations. 
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4.1.1 The Virtual Device Interface 


The VDI consists of two parts: 

• the GDOS, or Graphics Device Operating System, which contains a 
number of the device-independent graphics routines 

• the GIOS, or Graphics Input/Output System, which contains the 
device-specific routines and fonts for performing input and output. 

The VDI recognizes two coordinate systems: 

• NDC — or normalized device coordinates 

• RC — or raster coordinates 

Raster coordinates correspond to the physical points on a device. On the ST 
screen, these range from 320x200 through 640x400. On a plotter, they 
measure the x and y steps. 

Normalized device coordinates refer to an idealized screen surface.The NDC 
orientation corresponds to our usual Cartesian system: point 0,0 lies at the 
lower left comer, and the largest values for x and y lie at the upper right 
comer of the drawing surface. The range of values for the NDC is from 0, 0 
to 32767, 32767, and corresponds to a geometrically correct screen with 
very high resolution. 

The programmer can select the coordinate system he wants to use. If you 
use the NDC, the GDOS converts the coordinates to the appropriate raster 
coordinates. Thus, if you ask to draw a square of 100 units, it appears 
square on the display. If you use RC, the coordinates are not converted. 
You yourself are responsible for making the object appear square. 

The major advantage of using the NDC is that graphics can be exchanged 
between different peripheral devices. For example, the display screen has an 
aspect ratio of 1: 1.8. A square on the display screen is actually 1" x 1.8". If 
this picture is sent to a printer using raster coordinates, the square will no 
longer appear square on the hardcopy. Using the NDC, the square will 
appear correctly on the hardcopy. 

The VDI makes the necessary conversions. Graphics of any type appear on 
any peripheral device in the proper ratio. The disadvantage of NDC is that it 
takes much longer to convert a graphic point to the coordinate system, 
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compared to the speed of raster coordinates. For this reason it is advisable 
to work with the RC. However, the RC requires you to be more meticulous 
when writing programs to ensure they remain portable. 


4.1.2 The Application Environment Services 


The AES is composed of several parts: 

• the subroutine libraries 

• the dispatcher 

• the shell 

• the desk accessory buffer 

• the menu/alarm buffer 

The menu/alarm buffer makes possible the fast operation of GEM. For 
example, the menu data buffer stores the part of the screen that is overlaid 
by a drop-down menu. After using the drop-down menu, a subroutine of 
the AES restores the desktop at lightning speed. Neither the application nor 
the programmer need be concerned with these details. As long as there is 
enough memory to save one-fourth of the screen contents, the AES can 
perform its tasks. 

The desk accessory buffer is used similarly. In addition to data, utility 
programs such as prinit (the Print Initialize utility in this section) can be 
stored in the desk accessory buffer. 

The dispatcher makes it possible for the ST to process several tasks 
simultaneously. "Simultaneous" is a relative term — for us it means at 
apparently the same time. 

To conserve valuable processing time, the dispatcher has two lists. The first 
is the ready list, in which all the currently-running programs are listed and 
are waiting for a CPU assignment. The other is the not ready list, in which 
all processes which are waiting for a certain event to occur are listed. 
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Such an event could be: 

• a keypress 

• pressing a mouse button 

• a mouse movement 

• a report 

• the elapse of a time interval 

Thus our printer initialization utility is first put on the not ready list and 
waits until the desk accessory fxinit (FX-80 Initialize) is called to install 
the utility. 


After fxinit is installed, the printer initialization utility is removed from 
the not ready list and placed in the ready list. The dispatcher then "rotates" 
the tasks on the ready list. The first task from the ready list is processed for 
a predetermined amount of time, after which it is placed at the end of the 
ready list. Then the next task on the ready list is briefly processed, put at the 
end. of the ready list, and so on. Using this method, the dispatcher evenly 
divides the CPU's time between the currently running program, a 
background program such as a print spooler, and the operating system. The 
dispatcher can manage up to six tasks. 

The AES is a library containing subroutines to manipulate windows, read 
and handle the mouse, display system messages, interact with dialog boxes, 
and display drop-down menus. 

The screen manager assumes control of the mouse when the cursor is 
positioned outside the work surface of the currently active window. The 
contents of the window are defined as the work surface. The title and 
information line are not part of the work surface. The screen manager 
becomes active when the user exits the bordered area of the topmost 
window — such as when he uses the drop-down menus of the menu bar. It 
supervises the actions of the user and lets him know if the current window 
needs to be redrawn. 

The shell is also part of the AES. After the desktop is accessed, the shell is 
placed at the top of the ready list. It is responsible for calling an application. 
The desktop passes information to the shell indicating whether it is a TOS or 
GEM application, and gives the pathname to the application's subdirectory 
(folder). The desktop then terminates and the shell is responsible for loading 
and starting the application. When the application ends, the shell is called 
again to reactivate the desktop or start another application. 
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Figure 4- 1 
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Before writing a program for the ST, we must first distinguish between an 
application and an accessory. 

An application is what we normally think of as a program on a conventional 
non-GEM computer. A wordprocessor or database management system is 
an example of an application. Applications are normally loaded into main 
memory and then started. 

An accessory is a mini- application loaded into the accessory buffer during 
the boot procedure of TOS, and concurrently started. The role of an 
accessory is to wait until it is called into action by a main application. 


4.1.3 The resource file 


GEM uses a concept called a resource file to make applications flexible and 
easy to change. The resource file contains the structure of the pull-down 
menus, and the text of dialog boxes and alert messages. If the text of a 
menu or message needs to be altered, the program does not have to be 
changed. Instead, only the resource file need be changed. 

The resource file for an application has the extension . RSC. It may be 
edited using the Resource Construction Set, which we'll discuss shortly. 

Separating the text from the program makes it is easy to adapt an application 
to different countries. A developer need only edit the resource file to "move" 
an application, for example, from German to English. See Plate 8 for an 
example that uses TOS itself. 
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4.1.4 Working with TOS 


Adapting an application to use the features of GEM is quite complicated. 
For this reason, many applications have been "ported" to the ST and do not 
use any of the GEM features such as pull-down menus or icons. 

By sidestepping GEM, applications that were developed for other 
computers (in C, for example) can be easily adapted to the ST. By ignoring 
the special AES and VDI calls, the C programmer can be as comfortable 
with the ST as with a non-GEM computer. 

The next example is a C program that does not use GEM. Instead, it is a 
pure TOS application. 
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4.2 Twenty-one 


We’ll explore TOS programming by writing a simple game. The name of 
the games Twenty-one. It’s not the same game as the card game 
Blackjack, but a simple strategy game of the Nim variety. ' 

Twenty-one is a two-player game. A counter is initially set to zero. Each 
player takes alternate turns, adding one or two to the counter. The winner is 
t e player who reaches exactly twenty-one points on his turn. Naturally 
one player is represented by the computer. 

Here’s one possible winning strategy in Twenty-one. Our goal, reaching a 
count of twenty-one, may be split into several subgoals. One strategy is to 
avoid reaching a count of 19 on our turn, or else our opponent will be able 
to reach 21. Instead, we want our opponent to reach 19— that is one of our 
subgoals. By the same token, another of our subgoals is to reach 16, since 
then our opponent cannot prevent us from reaching 19. If our opponent 
adds 1 to 16, then we add 1 — thereby forcing him to reach 19 or 20. 

By following a similar strategy we find these subgoals: 1, 4, 7, 10, 13, 16, 
and 19. Our strategy is to perform a corresponding move (+l or +2) that 
will reach the next winning number. 

Let s give a little thought to the structure of the program. It is a linear 
program, with parts for game initialization (in it), game state output 
(output), player move (computer), evaluation and termination. 

In the first section, the game instructions are displayed on the screen, the 
counter is set to zero, and the player is given a choice as to who will make 
the first move. 

The player move section is made up of a simple function followed by a 
multiple choice (getchr, switch case). Getchar is a standard C 
llb J^T functlon to re ad a single digit. For this game, a single call is 
sufficient, since we’ll only need to read a single digit. This value is then 
added to the counter using the increment operator ++. The C statement 
state+t is similar to the BASIC statement. state=state+l . 

Before the next player s turn, we check to see if the winning score has been 
reached within the main loop of the program — while ( st ate<goal ) . 
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This is done using: 


if (state==goal) break; 

With the routine computer ( ) , the computer will always try to reach the 
next winning subgoal. If this isn’t possible because the opponent has 
reached the same subgoal, then it doesn't matter if the move is +1 or +2 (+1 
is the default) . 

If you're a beginning user of the C language, these explanations may 
interest you: 

A C program is made up of a sequence of functions. When the program is 
started, the function main ( ) is called. Every C program must contain a 
main ( ) function. 

You may use the tinclude and #def ine statements. 

The tinclude statement instructs the compiler to insert the file stdio . h 
at this point in the source file, stdio . h contains the standard input/output 
functions commonly used by C programs. Providing these functions as a 
standard library ensures that this source program can run on other 
computers after compilation. 

The #def ine statement lets you define symbolic constants. For example, 
you can define the symbol YES with the value of 1 (for true) or the symbol 
NO with a value of 0 (for false). For each subsequent occurence of a symbol 
within the source file, the compiler substitutes the corresponding value. 
This makes it easier to read and write programs, since the symbolic 
constants are more understandable than pure numeric or alpha values. 
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/* 21 - JW 16.08.1985 21 game*/ 

finclude "stdio.h" 

#def ine YES 1 
tdefine NO 0 

int ob jt , stand, sp, game; 


main ( ) 

{ 

hello ( ) ; 
start : init ( ) ; 

if (sp == YES) 

{ 

output ( ) ; 
player () ; 


while (stand<objt) 

{ 

output ( ) ; 
computer ( ) ; 
if (stand == objt) 
break; 
output ( ) ; 
player () ; 

} 

end ( ) ; 

pr int f ("Another game ?\n") ; 

game=getchar ( ) ; 
if (game == 'y') 

{ 

goto start; 

} 
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hello () 

{ 

printf (”******* TWENTY-ONE ******\ n "); 
printf ( "Ob ject of the game is to get the \n" ) ; 
printf (" number 21 by adding by 1 or 2 . \n") ; 

} 


init ( ) 

{ 

objt=21; 
stand=0 ; 

print f ( "\n\nWant to start?"); 

game=getchar ( ) ; 

if (game == ' y ' ) 
sp = YES; 
else sp = NO; 
printf ( "\n" ) ; 

} 


output ( ) 

{ 

printf ("Game standing: %d\n" , stand) ; 

} 


player () 

{ 

sp = YES; 
game=0 ; 

printf ( "\nWant to raise by 1 or 2 ?\n") ; 

game = (getchar() - ’O'); 
switch (game) 

{ 

case 1 : 

{ 

print f ( "\nOkay !\n"); 

stand++; 

break; 

} 
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case 2 : 

{ 

print f ( "\nThat ' s fine, too!\n"); 

stand+t; 

stand++; 

break; 

} 

default : 

{ 

print f ("\nNot so many!!\n"); 
player (); 

} 

} 

} 


computer ( ) 

{ 

sp = NO; 

switch (stand) 

{ 

case 2: 
case 5 : 
case 8: 
case 11: 
case 14: 
case 17: 
case 20: 

{ 

plusone () ; 
break; 

} 


case 

1 : 

case 

4 : 

case 

7 : 

case 

10 

case 

13 

case 

16 

case 

{ 

19 


print f("\nl raise by 2.\n"); 

stand+t; 

stand++; 
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break ; 

} 

default : 

{ 

plusone ( ) ; 

} 

} 

} 


plusone ( ) 

{ 

printf("\nl raise by l.\n”); 
stand++; 

} 


end ( ) 

{ 

if (sp == YES) 

print f ( "\n\nYou win ! . \n\n" ) ; 
else 

print f ( "\n\nl was very lucky. \n\n"); 
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Since a basic loader for this program would be quite large and really serve 
no useful purpose, we have not included one. For the BASIC programmers 
we have included the same program written in BASIC. You can compare 
the BASIC version with the C source code. 


10 

rem 21 program in basic 


20 

rem 


30 

YES = 1 


40 

NO = 0 


50 

rem main program 


60 

rem 


70 

gosub hello 


80 

start : gosub init 


90 

if sp = YES then gosub output : 

gosub player 

100 

while stand < obj 

120 

gosub output 


130 

gosub computer 


140 

if stand =obj then goto 150 


145 

gosub output : gosub player 


150 

wend 


160 

gosub ende 


170 

print "Another Game?" ; 


180 

game$ = input$(l) 


190 

if game$ = "y" then goto start 


200 

end 


210 

rem 


220 

rem 


500 

hello: fullw 2: clearw 2 


510 

print"**’ 1 '*** TWENTY-ON 

E ****** 

520 

530 

print "Object of the game is to 
print "number 21 by adding 1 or 

get the" 
2 

540 

return 


550 

rem 


600 

init: obj=21 


610 

stand = 0 


620 

print: print" Want to start" ; 


630 

game$ = input $(1) 


640 

if game$ = "y" then sp= YES else sp = NO 

645 

print 


650 

return 


660 

rem 


700 

output : print "Game standing:"; 

stand 

705 

print 
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710 return 
720 rem 

800 player: sp = YES 
810 game = 0 

820 print "Want to raise by 1 or 2 
830 input game 

850 if game = 1 then print"OK" : stand=stand+l : 
return 

860 if game = 2 then print "OK" : stand=stand+2 : 
return 

870 print "Not so many": goto 810: rem call player 
880 return 
890 rem 


900 

computer : 

sp = NO 

910 

if 

stand 

= 

1 goto plustwo 

911 

if 

stand 

= 

4 goto plustwo 

912 

if 

stand 

= 

7 goto plustwo 

913 

if 

stand 

= 

10 goto plustwo 

914 

if 

stand 

= 

13 goto plustwo 

915 

if 

stand 

= 

16 goto plustwo 

916 

if 

stand 

= 

19 goto plustwo 

920 

if 

stand 

= 

2 goto plusone 

921 

if 

stand 

= 

5 goto plusone 

922 

if 

stand 

= 

8 goto plusone 

923 

if 

stand 

= 

11 goto plusone 

924 

if 

stand 

= 

14 goto plusone 

925 

if 

stand 

= 

17 goto plusone 

926 

if 

stand 

= 

20 goto plusone 

930 

goto plusone : rem default 


950 plusone : print"I raise by one" 

955 stand= stand +1 
958 return 

960 plustwo : print "I raise by two" 

965 stand = stand + 2 
968 return 
980 rem 

1000 ende: if sp = YES then print "You win" else 
print "I was very lucky" 

1010 return 
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4.3 The next step: A GEM application 


Now that you ve become acquainted with the C language and understand 
terms like include resource files and symbolic constants, we want to 
introduce you to a GEM application. 

As previously illustrated, GEM, and especially the Virtual Device Interface, 
provides a very convenient user interface for a variety of graphic devices. 
The VDI can convert the output of any device — a raster screen, a dot-matrix 
printer, or a pen plotter— to the proper device-specific codes. The 
programmer need not concern himself with these codes. 

To make use of any VDI services, the programmer must pass a request 
through a series of parameters. These parameters are five arrays: 

• the control array (contrl) 

• the input array (intin) 

• the input array for point coordinates (pt s in) 

• the output array (intout) 

• the output array for point coordinates (pt sout) 

All array elements are two bytes long, so corresponding variables are 
defined as integers in C. In the following example, the definitions appear at 
the beginning of the global variables. 

The first step in a GEM program is to initialize these arrays. Next the 
workstation parameters are set, in order to open the workstation. The VDI 
function OPEN WORKSTATION loads the corresponding driver (not yet 
implemented on the ST), sets the output device for graphics operation, and 
prepares it for subsequent use. 

At this time, certain workstation characteristics may be specified. For 
example, we may request that lines appear as black and dotted, rather than 
as solid lines. A variety of characteristics may be specified and passed on as 
parameters, shown as follows: 
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• Line type (dashed, shaded,...) 

• Color of lines 

• Marker type 

• Color of die poly marker 

• Type style 

• Type color 

• Fill pattern for drawing polygons 

• Fill pattern 

• Fill color 

Most of these parameters have defaults with a value of 1. 

One parameter is particularly important to us. Within the input array 
(int_in), the value of one element (10) determines the coordinate system. 
A value of zero selects normalized device coordinates (NDC) and a value of 
two selects raster coordinates (RC). Since we place a priority on speed, we 
select RC. 


open_vwork ( ) 

{ 

int i ; 

for (i = 1; i <10; i + + ) { 

int_in[i] = 1; 

} 

int_in[10] = 2; 

v_opnvwk (int_in, &handle, int out); 

} 


To initialize the workstation we call v_opn vwk ( int_in , & handle , 

int_out ) Using the value passed by handle, we can address the work 
area created for our application. 

If you look at main ( ) , you will notice two other GEM calls. 

Appl_init prepares a similar control array to use the AES. An 
identification code (ap_id) is returned to the application. The code is used 
to distinguished between multiple applications using the same resources 
(multi-tasking). 

Draw ( ) is our actual main program — in this example, where we draw the 
outline of a house. 
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Each GEM application must be properly terminated. Memory and other 
resources must be released so that other applications may make use of them. 

Here are a few notes concerning the following listing: 

All source statements preceding draw ( ) may be placed in a separate file. In 
other programs these statements may be fin eluded. To ensure the 
orderly termination of your application, the last lines of the program should 
be: 

desktop ( ) ; 

At the end of the listing you’ll find the click ( ) function. This allows you 
to view the screen until the left mouse button is pressed. 
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/***** program: HOUSE1.C ****/ 
/***** draw a house — wait for the left mouse key ****/ 
/***** jw October 1985 ****/ 

/* include files */ 


#include "obdefs.h” /* first time all are brought in */ 
♦include "define.h" 

♦include "gemdef s . h" 

♦include "osbind . h” 

♦include "gembind . h" 

/^global variables */ 

int contrl[12]; 
int int in [128]; 
int ptsin [128] ; 
int intout [128]; 


int 

ptsout [128] ; 

r 

* enough space for all purposes 

*/ 

int 

handle, i; 

/* 

virtual workstation handle 

*/ 

int 

phys_handle ; 

/* 

physical workstation handle 

*/ 

int 

pxyarray [12] ; 

/* 

Array for x,y coordinates 

*/ 

int 

int_in [11] ; 

/* 

input in GSX array 

*/ 

int 

int_out [57] ; 

/* 

output from GSX array 

*/ 

int 

ap_id; 

/* 

i.d. of application 

*/ 


int dummy; 


main () 

{ 

ap_id=appl_init () ; 


/* initialize GEMAES array-structures */ 
handle=graf_handle (&dummy f &dummy f &dummy, &dummy) ; 


/* Desktop maintenance 

*/ 

open__vwork ( ) ; 


/* Set up workspace 

*/ 

graf_mouse (256, &dummy) ; 


/* Mouse stuck 

*/ 

draw ( ) ; 


/* produce artwork 

*/ 


v_gtext (handle, 1, 350, "Please click LEFT button..”); 
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click (); /* wait for left mouse key ... */ 

desktop (); /* End-of-program */ 

} 


open_vwork ( ) 

{ 

int i ; 

for (i = 1; i <10; i++) { 
int_in [ i ] = 1 ; 

/* init int_in array: linetype, color, */ 
} /* fillstyles etc. */ 

int_in[10] =2; 

/* used RC - coordinates */ 

v_opnvwk (int_in, fihandle, int_out) ; 

/* now it can go . . . . */ 

} 


desktop ( ) 

{ 

v _clsvwk (handle) ; /* workstation assigned */ 

appl_exit(); /* no more GEM calls */ 

} 


click () /* wait for mouse click (left) */ 

{ 

evnt_button (1,1,1, &dummy, sdummy, &dummy, &dummy) ; 

} 


/* — here follows the program section — */ 


draw ( ) 


int style; /* Variable for fill pattern */ 
style =3; /* Choose fill pattern */ 
pxyarray [0] = 100; /* x-coordinate Point 1 */ 
pxyarray [ 1] =100; /* y-coordinate point 1 */ 
pxyarray [2] = 100; /* Point 2 */ 
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} 


pxyarray [3] = 300; 
pxyarray [4] = 500; /* 

pxyarray [5] = 300; 
pxyarray [6] = 500; 
pxyarray [7] = 100; 
pxyarray [8] = 300; 
pxyarray [9] = 50; 
pxyarray [10] = 100; 
pxyarray [11] = 100; 


Point 3 */ 


v _j?line (handle, 6, pxyarray); 

/* Polygon in workspace : */ 

/* 6 points with coordinates fr. pxyarray */ 

vsf_interior (handle, style); 

/* set fill interior style: solid/hollow*/ 
v_fillarea (handle, 6, pxyarray); 

/* fill from polygon-generated */ 

/* surface */ 
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Hopefully we've succeeded in running an application on the desktop. The 
next step is the creation of a routine open_window ( ) , which prepares a 
window as a work area for us. 

Let’s first give some thought to the size that our window should have. In 
GEM, the convention is to specify the upper left comer of an object as the 
reference point in pixel coordinates, and then specify the width and height, 
also in pixel units, relative to this point. 

But few of us want to count out pixels or do conversions. The desktop is 
actually a window of maximum size. The VDI function wind get returns 
these measurements to us. 

Let's build upon the previous program HOUSE 1 with the call: 

wind_get { 0 , WF_WORKXYWH , &xdesk, &ydesk, &wdesk, &hdesk) ; 

Remember to enter the new variables in the declaration list: 

int xdesk, ydesk, wdesk, hdesk; 

The wind_create ( ) function is used to create a window. It returns a 
window number (wi_handle) for identification. To create a window 
several parameters are specified. Each characteristic of a window is 
assigned one bit in an integer, as follows: 


0x0001 

NAME 

title line with name 

0x0002 

CLOSER 

close field 

0x0004 

FULLER 

field for full size (top right) 

0x0008 

MOVER 

window can be moved 

0x0010 

INFO 

info line (such as 123456 bytes used) 

0x0020 

SIZER 

enlargement field (lower left) 

0x0040 

UP ARROW 

arrow up 

0x0080 

DNARROW 

arrow down 

0x0100 

VSLIDE 

vertical slider 

0x0200 

L FARROW 

arrow left 

0x0400 

RTARROW 

arrow right 

0x0800 

HSLIDE 

horizontal slider 
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If your window is just a border around the work area with a title line, the 
first parameter when calling wind_create must have a value of 1. To 
close the window during termination, the first parameter is set to three (bit 
00000011). Using bits can become complicated. One alternative is to use 
symbolic constants, which are defined within an # include file for this 
purpose. 


The above symbols are standardized. In the case of C language, they are 
found in the file GEMBIND . h. The programmer can then use just the 
symbolic constants within his program: 

tdefine WI_KIND (SIZER MOVER FULLER CLOSER NAME) 

Once the window format is set, the title is set using the function 
wind_set ( ) , and the window is finally opened. 

We recommend that you place this sequence of instructions in a separate file 
to be # included in programs (thanks to the symbolic constants they can 
be easily used for any window): 

open_window ( ) 

{ 

wi_handle=wind_create (WI_KIND, xdesk, ydesk, wdesk, hdesk) ; 
wind_set (wi_handle, WF_NAME , ” Tips & Tricks ”,0,0); 
wind_open(wi_handle, xdesk, ydesk, wdesk, hdesk) ; 

) 

This creates a window on the screen. But many of the window features are 
inoperative. The event library, a part of the AES, tests for the special 
features. To determine if a mouse button is pressed, for example, we use 
the function in click ( ) and test for the state evnt_button . 

Messages between the user and GEM are communicated through an array 
called the message buffer (msgbuf f). The message is placed in the first 
element msgbuf f ( 1 ) . An indentifcation code for which this message 
applies is placed in msgbuf f ( 2 ) . Information about required parameters 
are placed in the remaining entries. 

If a menu entry is selected with the mouse— for example, the code 10 for 
MN_SELECTED — it is placed in msgbuf f (0) . The pointer to the menu 
(e.g. DESK or FILE) is placed in msgbuf f (3 ) , and the pointer of the 
selected object is placed in msgbuf f ( 4 ) . This lets you determine the 
desired action. 
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The name MN_SELECTED is the designation for the symbolic constant 
defined in the # include file. The following symbolic constants are also 
used: 


MN_SELECTED 

WM_REDRAW 

WM_TOPPED 

WM_CLOSED 

WM_FULLED 

WM_ARRO WE D 

WMJHSLID 

WM_VSLID 

WM_MOVED 

WM_NEWTOP 

AC_OPEN 

AC CLOSE 


Menu entry selected 

The window must be redrawn 

This window should be activated 

The close field was activiated 

The maximum size was set 

A arrow was clicked 

The horizontal slider was used 

The vertical slider was used 

The window was moved 

The window was activiated 

Sent to the accessory selected in the desk menu 

Sent to the accessory to be closed 


To use all of the GEM window features, an application must handle all of 
the above conditions. 


Using the evnt_mult i ( ) call, an application can be made to wait for a 
message, a mouse event, or a keypress, for example. 

If you’ve written an application that seems to "hang up", but the pointer can 
still be moved with the mouse, then the ST probably hasn't crashed. 
Instead, you have not requested it to wait for an external event. Your 
application should probably be designed as a large loop that can't be exited 
until a specific termination condition is fulfilled. This can be a mouse click 
or the activation of the close field. 

An example of this: 

do ( 

evnt_multi (....); 
window_control; 

your program follows here; 

) while close field is not activated 

The outline above is typical for an application. An accessory requires a 
somewhat different structure. For the time being, the following example 
demonstrates how to shrink, enlarge and move the window. 
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/★★it*****************************************.,.**********.***/ 

/******** Program: HOUSE3.C *******/ 

/******** complete window control *******/ 

/******** jw October 1985 *******/ 

/********************************************************** j 

/* include files */ 

♦include "obdefs.h" /* first time around, so it gets all */ 
♦include "define. h" /* data necessary ... */ 

♦include "gemdefs.h" 

♦include "osbind.h" 

♦include "gembind.h" 


/* Definition for later reference */ 

♦define WI_KIND ( S IZER | MOVER | FULLER! CLOSER | NAME) 

/* work window: Title, border */ 

♦define MIN_WIDTH (2*gl_wbox) 

♦define MIN_HEIGHT (2*gl__hbox) 

extern int gl_apid; 

/*global variables */ 

int contrl[12]; 
int intin [128]; 
int ptsin[128]; 
int intout [128]; 


int ptsout [128] ; /* enough space for all cases */ 

int handle, i; /* virtual workstation handle */ 

int phys_handle; /* physical workstation handle */ 

int pxyarray [12] ; /* Array for x,y coordinates */ 

int int_in [11] ; /* Input in GSX array */ 

int int_out [57] ; /* Output from GSX array */ 

int wi_handle; /* Handling the applicable window */ 

int top_window; /* Open window */ 

int xdesk, ydesk, wdesk, hdesk; 

/* Parameters for window size */ 

int xold, yold, hold, wold; 
int xwork, ywork, hwork, wwork; 

int mx, my; /* x and y coordinates of mouse */ 

int butdown; 
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int ap_id; 
int menu_id; 
int fulled; 
int hidden; 


/* Application id 
/* Working window id 


*/ 

*/ 


int msgbuff[8]; /* event message buffer */ 

int keycode; /* contains char, codes from evnt_keybrd */ 


int gl_wchar, gl_hchar; /* Char, height 
int gl_wbox, gl_hbox; 


'/ 


int dummy; 


/* Necessary initialization */ 


open_vwork ( ) 

{ 

int i ; 


} 


for 

(i = 0; 

i 

<10; 

i++> ( 

int_in [i] 

= 

1; 




/* 

init 

int in 

} 


/* 

f illstyles 

int 

in [10] 

= 2; 

/* RC 


handle=phys_handle ; 
v_opnvwk (int_in f & handle , 


array: linetype, color, 
etc . 

- coordinates used 
int_out) ; /* off we go... 


*/ 

*/ 

*/ 

*/ 


/* open window */ 


open__window ( ) 

{ 

wi_handle=wind_c reate (WI___KIND, xdesk, ydesk, wdesk, hdesk) ; 
wind_set (wi__handle, WF_NAME , ” The T&T House" , 0 , 0 ) ; 

graf_growbox (xdesk+wdesk/2 , ydesk+hdesk/2 , gl_wbox, gl_hbox, xde 
sk, ydesk, wdesk, hdesk) ; 


173 


Abacus Software 


Atari ST Tricks and Tips 


wind_open (wi_handle, xdesk, ydesk, wdesk, hdesk) ; 

wind_get (wi__handle, WF_WORKXYWH, &xwork, &ywork, &wwork, &hwork) ; 

} 

/**********************************************************/ 
/* Show mouse / conceal mouse */ 

/**********************************************************/ 

show^mouse ( ) 

{ 

graf_mouse (257, &dummy) ; 

} 

hide_mouse ( ) 

{ 

graf_mouse (256, &dummy) ; 

} 

/**********************************************************/ 
/* clipping parameter set */ 

/******★****************************************★★*********/ 

set_clip (x, y, w f h) 
int x,y,w,h; 

{ 

int clip [4]; 
clip [ 0 ] =x ; 
clip [1] =y; 
clip [2] =x+w; 
clip [3] =y+h; 
vs_clip (handle, 1, clip) ; 

} 
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/****** **************************************************** i 

/* Re-appear after windo manipulation */ 

/**********************************************************/ 

do_redraw (xc, yc, wc, he) 
int xc,yc,wc,hc; 

{ 

GRECT 1 1 , 1 2 ; 

hide_mouse ( ) ; 
wind_update (TRUE) ; 
t2 . g_x=xc; 
t2 .g_y=yc; 
t2 . g_w=wc ; 
t2 . g_h=hc; 

wind_get (wi_handle, WF_FIRSTXYWH, &tl . g_x, &tl . g y,&tl.g w,&tl. 
g_h) ; 

while ( t 1 . g_w && tl.g_h) 

{ 

if (rc_intersect (&t2, &tl) ) 

{ 

set_clip(tl.g_x, tl.g_y, tl.g_w, tl.g_h); 
draw_house ( ) ; 

} 

wind_get (wi_handle, WF_NEXTXYWH, &tl .g_x, &tl .g_y, &tl .g w, &tl .g 
_h) ; 

) 

wind_update (FALSE) ; 
show_mouse ( ) ; 

} 

Z*****************************************************.^^^^^^ 

/* Read from events: Window, Mouse, Keyboard */ 

/**********************************************************/ 

multi ( ) 

{ 

int event ; 
do { 
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event = evnt_multi (MU_MESAG | MU_BUTTON | MU_KEYBD, 

1, l,butdown, 

0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 

msgbuff , 0,0, &mx, &my, &dummy, &dummy, Skeycode, &dummy) ; 


/**********************************************************/ 
/* WINDOW(): Window management: shifting, sizes, etc. */ 

/**********************************************************/ 
wind_update (TRUE) ; 

if (event & MU_MESAG) 
switch (msgbuff[0]) { 

case WM_REDRAW: 

do_redraw (msgbuf f [4] ,msgbuf f [5] ,msgbuff [6] ,msgbuf f [7] ) ; 
break; 

case WM_NEWTOP : 
case WM_TOPPED : 

wind_se t ( wi_handle , WF_TOP , 0 , 0 , 0 , 0 ) ; 
break; 

case WM_SIZED: 
case WM_MOVED: 

if (msgbuff [6] <MIN_WIDTH) msgbuff [6] =MIN_WIDTH; 
if (msgbuf f [7] <MIN_HEIGHT) msgbuf f [7] =MIN_HEIGHT; 

wind_set (wi_handle, WF_CURRXYWH, msgbuf f [4] , msgbuf f [5] , msgbuf f 
[6] , msgbuf f [7] ) ; 

wind_get (wi_handle, WF_WORKXYWH, &xwork, Sywork, Swwork, &hwork) ; 
break; 

case WM_FULLED : 
if (fulled) { 

wind_calc (WC_WORK, WI_KIND, xold, yold, wold, hold, 

Sxwork, &ywork, &wwork, &hwork) ; 
wind_set (wi_handle, WF_CURRXYWH, xold, yold, wold, hold) ; } 
else { 
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wind_calc (WC_BORDER, WI_KIND, xwork, ywork, wwork, hwork, 
Sxold, Syold, Swold, &hold) ; 

wind_calc (WC_WORK, WI_KIND, xdesk,ydesk, wdesk, hdesk, 
&xwork, & ywork, &wwork, &hwork) ; 

wind_set (wi_handle, WF_CURRXYWH, xdesk, ydesk, wdesk, hdesk) ; 

} 

fulled A = TRUE; 
break; 

} /* switch (msgbuff[0]) */ 

if ( (event & MU BUTTON) && (wi handle == top window) ) 

if(butdown) butdown = FALSE; 
else butdown = TRUE; 

if (event & MU_KE YBD ) { 

do_redraw (xwork, ywork, wwork, hwork) ; 

} 

wind_update (FALSE) ; 

} while (!( (event & MU_ME S AG ) && (msgbuff[0] == 

WM_CLOSED) ) ) ; 

/* Enclosure was chosen */ 

wind_close (wi_handle) ; 

graf_shrinkbox (xwork+wwork/2 , ywork+hwork/2 , gl_wbox, gl_hbox, x 
work, ywork, wwork, hwork) ; 

wind_delete (wi_handle) ; /* Free up memory */ 

v_clsvwk (handle) ; /* assign workstation */ 

a PPl_ ex it(); /* and goto Desktop */ 


} 


main ( ) 

{ 

appl_init(); /* initialize GEM AES array-structures */ 

phys_handle=graf_handle (&gl_wchar, &gl_hchar, 

&gl_wbox, &gl_hbox) ; 
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/* Handling the Desktop */ 
wind_get ( 0 , WF_WORKXYWH, &xdesk, &ydesk, &wdesk, &hdesk) ; 

open_vwork () ; /* Open workspace */ 
open__window ( ) ; /* Open application window */ 
graf_mouse (ARROW, &dummy) ; /* Mouse form */ 

hidden=FALSE ; 
f ulled=FALSE; 
butdown=TRUE ; 

multi (); /* What does the user do? */ 


/* — Program follows from here to end of source — */ 


draw_house ( ) 

{ 


int style; 
int temp [ 4 ] ; 

/* Fill-pattern variable 

*/ 

vsf_interior (handle, 2) ; 

/* 

blank screen fill 

*/ 

vsf_style (handle, 8) ; 

/* 

set fill solid 

*/ 

vs f_color (handle, 0) ; 

/* 

set color to white 

*/ 

temp [ 0 ] =xwork ; 

/* 

set coordinates 

*/ 


temp [1] =ywork; 


temp [2] =xwork+wwork-l ; 
temp [3] =ywork+hwork-l ; 

v_bar (handle, temp) ; /* draw large bar */ 


style - 3; 


/* 

Choose fill-pattern 

*/ 

pxyarray [0] 

= 100; 

/* 

x-coordinate point 1 

*/ 

pxyarray [1] 

= 100; 

/* 

y-coordinate point 1 

*/ 

pxyarray [2] 

= 100; 

/* 

Point 2 

*/ 

pxyarray [3] 

= 300; 




pxyarray [4] 

= 500; 

/* 

Point 3 

*/ 

pxyarray [5] 

= 300; 




pxyarray [6] 

= 500; 
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pxyarray [7] = 100; 
pxyarray [8] = 300; 
pxyarray [9] = 50; 
pxyarray[10] = 100; 
pxyarray [11] = 100; 

v sf_color (handle, 1) ; /* set color to black */ 

v _J?line (handle, 6, pxyarray) ; /*Polygon in workspace */ 

/* 6 points w/ coordinates in pxyarray*/ 

vsf_interior (handle, style); 

/* set fill interior style: solid/hollow*/ 

v_fillarea (handle, 6, pxyarray) ; 

/* fill Polygon-enclosed surface */ 

v_gtext (handle, 10, gl_hchar*3, "This is the T&T 

House . " ) ; 

} 


HOUSES . PRO 
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Since a basic loader for this program would serve no useful purpose, we 
have not included one. For the BASIC programmers we have included the 
HOUSE3 program written in BASIC. You can compare the BASIC version 
with the C source code. You will notice that the BASIC version is much 
shorter since BASIC takes care of the necessay GEM initializations. Parts 
of the program should look familiar. They are from Chapter 1 and merged 
into this program. 


10 rem house3 in basic 

20 gosub gem. arrays 

30 xl=0 : a$="This is the T&T house" 

40 poke int . in ,3 

50 poke int.in+2,2 

60 xl=varptr (a$ ) 

70 poke int.in+4,xl / 2 /s 16 

80 poke int.in+6,xl and &hffff 

90 poke int.in+8,0 

100 poke int.in+10,0 

110 gemsys 105 

120 

130 rem main 

140 

150 fullw 2:clearw 2 

160 gosub house : rem draw 

170 

180 mouse: rem read right mouse button 

190 poke contrl,124 

200 poke contrl+2,0 

210 poke contrl+4,0 

220 vdisys 

230 button = peek (intout) 

240 if button <>2 then goto mouse 
250 end 

260 house: style = 2 : index = 3 : colour = 1 

270 linef 100,100,100,300 

280 linef 100,300,500,300 

290 linef 500,300,500,100 

300 linef 500,100,300,50 

310 linef 300,50 ,100,100 

320 color colour, colour, colour , style, index 
330 fill 150,150 
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340 gotoxy 0,0: print "This is the T&T house, 
right mouse button to exit"; 

350 return 
360 gem. arrays: 

fon • in = peek(gb+8) *2 A 16 + peek(gb+10) 

880 return 
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4.3.1 PRINIT - An example application 


Now that we've used some pratical GEM techniques, let's create our first 
real application. Then we'll show you how to create an accessory, for use 
within DESK on the menu bar. 

The application is a short program to set a printer to different type fonts, 
margins, etc. This is a good candidate for a desk accessory. The alternative 
way to set up the printer is to use BASIC to send sequences of CHR$ 
statements to the printer. 

To make our application easy to use we’ll use a "dialog box" for the input. 
What is the quickest and easiest method for creating this type of dialog box? 

The Resource Construction Set (RCS), which is part of the Atari 
Development Package lets you easily create dialog boxes. With this utility 
program, all of the required menu structures can be created and later 
edited — in no time at all. The RCS creates .RSC files, which contain all of 
the specifications concering the dialog box and the required inputs. These 
specifications are loaded into memory by the rsrc_load (filename) 
function when the program is later executed. 

The biggest advantage of using resource files is that they can be easily 
changed. This allows for quick translations of your application into a 
foreign language. To change the following application for use in Germany 
only the resource file would have to be edited and not the complete 
program. 

Our application program sets several parameters for the Star SG-10 printer. 
To show the flexibility of resource files, we will later change the application 
to a desk accessory to work with an Epson FX-80 printer. 

In the next section we'll show you all of the necessary steps for 
constructing the PRINIT. RSC file. 
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Figure 4-2 
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4.4 Building a RSC file 


Start the Resource Construction Set from the ST Development System 
utilities disk. Two windows will appear on the screen. In the top one, the 
RESOURCE PARTBOX, all of the components available are pictured. 

You must now decide if you want to build a MENU or a DIALOG tree, 
within which the user can select between several alternatives. 

These two types are the most-used, but there is also the ALERT tree, which 
is very similar in structure to the DIALOG tree and is used to send messages 
to the user. In addition, the RCS recognizes the tree FREE, which places 
almost no restrictions on the programmer. The only condition that applies to 
this tree is that no object may extend outside of another, while the others 
must observe certain formatting rules. 

The tree symbolized by a question mark is only a place holder until the 
programmer finally knows what it does and correspondingly, what to call it. 
If a tree of type unknown (?) is found within the resource file, you can rest 
assured that the program will crash. 

To start building our tree, drag the icon for a DIALOG tree to the lower 
window. The RCS displays its own dialog box (Figure 4-3) and asks us to 
name this tree. Enter SGMENU (in uppercase) and press <return> or 
click the OK box. The dialog box will disappear. 

Next move the mouse pointer to the lower window. Then select the dialog 
box SGMENU and OPEN it from the FILE menu or by doubling clicking. A 
new window is opened on top of the lower window. 

Select the component BOXTEXT from the upper window and drag a copy of 
it to the lower window, SGMENU. We will use BOXTEXT, a simple box 
containing text, in order to name the various print options (ELITE , 
ITALIC, . . . ); for our application we will need seven boxes of this type. 
We can use the copy operation to make this task easier. To do this select 
BOXTEXT in the lower window and drag it to the desired screen position, 
but this time holding down the <SHIFT> key. Repeat this procedure until 
you have the appropriate number of BOXTEXT boxes. See Figure 4-4 for 
the placement of the boxes. Now open each BOXTEXT and enter the 
following in the TEXT field: ELITE, PROPO, ITALICS, CONDEN, 
NLQ, SKIP, MARGIN. 
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Figure 4-4 



186 


lOXTEXT 
























Abacus Software 


Atari ST Tricks and Tips 


Each of the ON/OFF switches in the SGMENU (see Figure 4-2) is seperated 
by a shaded box (the third element from the right within the PARTBOX - 
see Figure 4-4). Drag it into the lower window and resize it to the desired 
size by clicking on the edge and moving the outline. Place this box to the 
right of the first boxtext box. 

Double click this box or select Open from the File menu. The RSC 
presents you with another dialog box, by which you set the parameters for 
the appearance of this box (see Figure 4-5.) Select a shaded background 
and the number 1 from the Background choices. Now press the OK box. 

So that we may select each ON or OFF they will be represented by a 
BUTTON. Select a button in the partbox and position it to one side of the 
shaded box just created. Then move a copy of this button to the other side 
of the shaded box. 

Open the left BUTTON with a double click and enter ON as the text. You 
should also select selectable and radio butn. Then press the OK 
box. Open the button on the right side and enter the text OFF. Select 
SELCTABLE and RADIO BUTN for this box (see Figure 4-6.) Resize these 
boxes for the most pleasing asppearence. Then place these boxes next to the 
first BOXTEXT. 

After this is done, copy the three boxes for each BOXTEXT present. Edit 
the boxes next to MARGIN so that ON is 0 and OFF is 10. 

The last important control element for you to create is another BUTTON with 
the text "OK" and define it as selectable , default, and EXIT Drag 
the button below the boxtexts and OPEN it to make your choices. 
Resize this box to create a symetrical appearence. 

We re done, except for the title field, which consists of a large BOX outfitted 
with three elements of type TEXT. Select a box from the parts box and drag 
it into the lower window. Resize this box to fit, then open the box and add 
shading. Next select TEXT from the parts box and move it into the box 
Copy text so you have three texts in the box. Open the top TEXT and 
input SGI 0 IN IT as text, select Lg Font . Select the second text, OPEN 
itand enter ABACUS Tricks and Tips. This time choose Sm Font. 
The third TEXT is opened and todays date is input as Sm Font. 

Now OPEN the work window fully by clicking the box in the upper right 
hand comer. Then resize the large white box and repostion for appearence. 
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Now we must create the references so that our program later knows exactly 
which box has been selected. The function NAME within the OPTION menu 
of the title line serves this purpose. 

You need to assign names only to objects which will be assigned a program 
function later. In our case we used the descriptions; ELITE IN, 
ELITEOUT, PROPIN, PROPOUT, ITALIN, ITALOUT, CONDENIN, 
CONDENOT, NLQIN , NLQOOT , SKIPIN, SKIPOUT, MARGINO, 
MARGIN10, and EXIT for the OK field. Select each item (ON, OFF, 
0,10) and from the OPTIONS menu Name them accordingly. 

Then click the close box on the window so that the D IALOG icon appears in 
the lower window. Next enter the File menu and tell the RCS to save the 
whole thing under the name "PRINIT . RSC" with the Save As option. 

This will create the desired files, PRINIT . RSC, PRINIT . DEF and 
PRINIT . H. Then click the close field of the lower window so the RCS 
view window is empty again. Quit the RCS. 

On your diskette you will find the following files: 

PR IN IT. RSC - the resource file for the following program 
PRINIT . H - an include file with all of the symbolic constants 
PRINIT. DEF - an RCS file 

Now that we have instructed you in the use of the RCS, here is a brief look 
at all of the components in the file as well as the optional parameters 
required for C programming. 

The first thing listed is the object type. Most of the objects which you use 
for constructing your resources are of type BOX. They may be one of the 
following: 

G_lBOX, G_BOX empty boxes 

G_BOXCHAR contains a single character 

If there are strings in the RSC file they are one of the following: 

G_STRING a text string 

G_BUTTON a string enclosed by a box 

G_T I TLE a string within a menu bar 
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Figure 4-5 



189 














Desk File Options Global 


Abacus Software 


Atari ST Tricks and Tips 


Figure 4-6 
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In addition, the RCS recognizes formatted text types, which are used for 
messages to be edited (such as in the file selection menu): 


GJTEXT 
G_BOXTEXT 
G_FTEXT 
G FBOXTEXT 


is a formatted string 
formatted string within a box 
editable text 

editable text within a box 


After putting the desired objects in the tree, you must set the object status 
and some flags: 


Selected 

Crossed 

Checked 

Disabled 

Outlined 

Shadowed 

Selectable 

Default 

Exit 

Editable 

Rbutton 

Hidetree 

Touchexit 


draws an object in reverse 
crosses a box 

displays a checkmark to the left of an object 

represents the object at half intensity 

the object contains another border (not 

together with Shadowed) 

draws a shadow around the box (not with 

Outlined) 

the object can be activated during the course 
of the program 

pressing the <return> key selects this 
object; it is display with a dark border 
ends a dialog 

the object contains editable text 

the object belongs to a group of which only 

one can be selected 

the object is not drawn with an 
Ob jc_Draw call 

as soon as the mouse pointer is over such an 
object, the dialog is ended (without a clock 
operation) 


On the following pages is a listing of the printer initialization program. Note 
that the .H file was merged into the main file by using a text editor. 
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If you have create a RSC file with the Resource Construction Set, note the 
values defined for each symbol so that these may be used in your C 
programs. For example, the value for the symbol EXIT is 5. The values in 
your . H file will differ from the ones in the following PRINT . H listing. 
Consult the . H file listing that you create and use these values in place of 
those below. 

/*********************************/ 

/* This file was created by the */ 

/* authors using the RCS . The */ 

/* values in your .H file will */ 

/* differ from these. Substitute */ 

/* the values from your listing */ 

/* in the printer initialization */ 

/* listing. */ 

/* PRINIT.H file created by RCS */ 
/*********************************/ 


♦define 

SGMENU 0 

/* 

TREE */ 





♦define 

EXIT 5 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

ELITEIN 7 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

PROPIN 10 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

PROPOUT 11 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

ITALIN 13 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

ITALOUT 14 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

CONENIN 16 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

CONDENOT 17 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

NLQIN 19 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

NLQOUT 20 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

SKIPIN 22 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

SKIPOUT 23 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

MARGINO 26 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

MARGIN10 25 

/* 

OBJECT 

in 

TREE 

#0 

*/ 

♦define 

ELITEOUT 8 

/* 

OBJECT 

in 

TREE 

#0 

*/ 
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*/ 

Printer initialization program */ 

for STAR SG-10 printer */ 

/t**********************************************************^*^^^*/ 


/* 

/* 


Z**********************************************************************/ 
/* Use ♦include "PRINIT.H" or merge file into text using your editor */ 
/* Your values from the RSC will be different from those listed below */ 
Z**********************************************************************/ 


#def ine SGMENU 0 
♦define EXIT 5 
♦define ELITEIN 7 
♦define ELITEOUT 8 
♦define PROPIN 10 
♦define PROPOUT 11 
♦define ITALIN 13 
♦define ITALOUT 14 
♦define CONDENIN 16 
♦define CONDENOT 17 
♦define NLQIN 19 
♦define NLQOUT 20 
♦define SKIPIN 22 
♦define SKIPOUT 23 
♦define MARGINO 26 
♦define MARGIN1 0 25 


/* 

TREE 



/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 

/* 

OBJECT 

in 

TREE 



*/ 

♦ 0 

*/ 

♦ 0 

*/ 

♦ 0 

*/ 

♦ 0 

*/ 

♦ 0 

*/ 

♦ 0 

*/ 

♦ 0 

*/ 

#0 

*/ 

#0 

*/ 

♦ 0 

*/ 

#0 

*/ 

#0 

*/ 

♦ 0 

*/ 

♦ 0 

*/ 

♦ 0 

*/ 


long menu_tree; 


/* Address OF RSC-Objects */ 


/******************************** 

/* 

/******************************** 
♦define SELECTED 0x0001 
♦define NORMAL 0x0000 
♦define WI_KIND 0x0001 
/******************************** 
/* 

/* 

/******************************** 

♦define RET 13 

♦define ESC 27 

♦define BELL 7 

♦define SMALL 15 

♦define SMALLOFF 18 

♦define ELITE 77 

♦define ELITEOFF 80 

♦define PROPORTIONAL 112 


******* ****************************** ^ 
Definition BUTTON in Menus */ 

*************************************^ 

/* Window has Name line */ 

************************************* ^ 
Printer codes for */ 

: STAR SG-10 */ 

*************************************/ 
/* Return */ 

/* Escape */ 

/* Small print ★/ 

/* Elite */ 

/* Proportional */ 
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PSET 1 

/* 

on 

PRESET 0 

/* 

off 

ITALIC 52 

/* 

Italic 

ITALICOFF 53 



NLQ1 66 

/* 

NLQ mode 

NLQ2 4 



NLQOFF 5 



SKIP 78 

/* 

Skip over Perforation 

SKIP1 6 

/* 

6 lines 

SKIPOFF 79 



LMARG 108 

/* 

left margin set 

LMAROFF 0 

/* 

left margin reset 

POSIO 10 

/* 

Print at position 10 


*/ 

*/ 

*/ 

*/ 

*/ 

/***************************, h****************************************** / 

global Variables */ 

/**********************************************************************/ 
int contrl[12]; /* Controll-Arrays ★/ 

int intin [128]; 
int pt sin [ 12 8 ] ; 
int intout [128] ; 
int pt sout [ 128 ] ; 
int pxyarray [12 ] ; 


/* reserve space for all parameters */ 
/* Array for x,y coordinates */ 


int int_in [ 11] ; 
int int_out [ 57 ] ; 

int handle, i; 
int phys_handle; 
int wi_handle; 

int ap_id; 

int gl_hchar, gl_wchar; 
int gl_wbox, gl hbox; 


/* Input in GSX Array */ 

/* Output from GSX Array */ 

/* virtual workstation handle */ 

/* physical workstation handle */ 

/* Window handle */ 

/* Code number of application */ 

/* Height and widthof character */ 


/* dimensions of window 
/* Desktop dimensions 


int xwork , ywork , wwork , hwork ; 
int xdesk, ydesk, wdesk, hdesk; 
int xold, yold, hold, wold; 

/* temporary variables for window manipulation*/ 
int xobj , yob j, wob j, hob j; /* coordinates of objects */ 
xnt mausx, mausy; /* where was mouse when pressed? */ 


int dummy; 

int event; 

int title, item; 


/* ... dummy parameter 


*/ 


/* which event occured at the moment */ 
/* Menu title and actual object */ 
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/* Window open, close 

open_window ( ) 

{ 


*/ 

*/ 

*/ 


w i_h a ndl e -wind_create <WI__KIND, xdesk, ydesk, wdesk, hdesk) ; 
graf_growbox ( xdesk+wdesk/2 , ydesk+hdesk/2 , gl_wbox, gl_hbox, xdesk , 
ydesk, wdesk, hdesk) ; 

wind_open {wi_Jiandle, xdesk, ydesk, wdesk, hdesk) ; 

wind_get (wi_handle, WF_WORKXYWH, sxwork, Sywork, Swwork, shwork) ; 


close_window ( ) 

{ 

wind_close (wi_handle) ; 

graf_shrinkbox ( xwork+wwork/2 , ywork+hwork/2 , gl_wbox, gl_hbox, xwork, 
ywork, wwork, hwork) ; 
wind_delete (wi_handle) ; 

) 


open__vwork ( ) 
{ 

int i ; 


for <i = 1; i <10; 

i++> { 



int_in[i] = 1; 

/* 

init int_in array: line type, color. 

*/ 

} 

/* 

fill styles usw. 

*/ 

int_in [10] =2; 

/* 

use RC - coordinates 

*/ 


handle=phy s_handle ; 

( int in, &handle, int_out) ; /* set window ... */ 


/* Main program */ 

main { ) 

{ 


int ende; 
long gemdos () ; 


/* is TRUE when EXIT box selected */ 
/* for gemdos-call */ 


a P_id-appl__init ( ) ; /* initialize GEM AES Array-Structures */ 


phys_handle-graf_handle (&gl_wchar, &gl_hchar, &gl_wbox, &gl_hbox) ; 

/* Parameter for Desktop established */ 

w i nc *_get ( 0/ WF__WORKXYWH, &xdesk, & ydesk, &wdesk, &hdesk) ; 

°pe n __v work ( ) ; /* Work station opened */ 
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if (! rsrc_load (FILENAME) ) /* RSC-file loaded */ 

{ 

form_alert (1, " [3] (Bad Copy? I PRINIT .RSC | could not be found. ] [Abort] ") ; 
close_window; 
desktop ( ) ; 

} 

if (rsrc_gaddr (0, 0, &menu_tree) == 0) 

{ 

form_alert (1, " [3] [Fatal error ! | Resource File not OK .] [Abort ]") ; 
close_window; 
desktop ( ) ; 

} 

rsrc_gaddr ( R_TREE, SGMENU, &menu_tree) ; 
form_center (menu_tree, &xobj, &yobj, &wobj, &hobj) ; 
f orm_dial (0 , xob j , yob j , wob j, hob j ) ; 
form_dial (1, 1, 1, 1, 1, xob j, yob j, wob j, hobj) ; 

ob jc_draw (menu_tree, 0, MAX_DEPTH, 0, 0, wdesk, hdesk) ; 

graf_mouse (3, &dummy) ; /* Mouse = Hand */ 

while (ende ! = TRUE) { 

event =evnt_but ton (1,1,1, &mausx, &mausy, &dummy, &dummy) ; 

/* Wait for left button click */ 

item=ob jc_f ind (menu_tree, SGMENU, 13, mausx, mausy) ; 

/* which object in menu_tree at Mouse position*/ 


switch (item) { 

case ELITEIN: 

ob jc_change (menu_tree, ELITEIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu__tree, ELITEOUT, 0 , xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5 , ELITE) ; 
gemdos (0x5, BELL) ; 
break; 

case ELITEOUT : 

ob jc_change (menu_tree, ELITEOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, ELITEIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos ( 0x5, ESC) ; 
gemdos ( 0x5, ELITEOFF) ; 
gemdos (0x5, BELL) ; 
break; 
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case CONDENIN: 

ob jc_change (menu_tree, CONDENIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob j c_change (menu_t ree , CONDENOT , 0 , xwork , ywork , wwork , hwork , NORMAL, 1 ) ; 
gemdos {0x5, SMALL) ; 
gemdos (0x5, BELL) ; 
break; 

case CONDENOT: 

°bj exchange (menu_tree, CONDENOT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

°b j c _change (menu_tree, CONDENIN, 0 , xwork, ywork, wwork, hwork , NORMAL, 1) ; 
gemdos ( 0x5, SMALLOFF) ; 
gemdos (0x5, BELL) ; 
break; 

case PROPIN: 

ob jc_change (menu__tree, PROPIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_t ree, PROPOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5 , PROPORTIONAL) ; 
gemdos (0x5,PSET) ; 
gemdos (0x5, BELL) ; 
break; 

case PROPOUT: 

ob jc_change (menu_tree, PROPOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

°bj exchange (menu_tree, PROPIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5, PROPORTIONAL) ; 
gemdos (0x5, PRESET) ; 
gemdos (0x5, BELL) ; 
break; 

case ITALIN : 

ob jc_change (menu^tree, ITALIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, ITALOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos { 0x5 , ESC) ; 
gemdos (0x5, ITALIC) ; 
gemdos (0x5, BELL) ; 
break; 
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case ITALOUT : 

°b j exchange (menu_tree, ITALOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

°bj c _change (menu_tree, ITALIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, ITALICOFF) ; 
gemdos ( 0x5 , BELL) ; 
break; 


case NLQIN : 

°b jc_change (menu_tree, NLQIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

°b jc__change (menu_tree, NLQOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5,NLQl) ; 
gemdos (0x5,NLQ2) ; 
gemdos (0x5, BELL) ; 
break; 


case NLQOUT : 

ob jc_change (menu__tree, NLQOUT, 0 , xwork, ywork, wwork, hwork, SELECTED, 1) ; 

°b jc_change (menu_tree, NLQIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5,NLQl) ; 
gemdos (0x5,NLQOFF) ; 
gemdos (0x5, BELL) ; 
break; 


case SKIPIN: 

ob jc_change (menu_tree, SKIPIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, SKIPOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, SKIP) ; 
gemdos (0x5,SKIPl) ; 
gemdos (0x5, BELL) ; 
break; 


case SKIPOUT : 

ob jc_change (menu_tree, SKIPOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

jc_change (menu_tree, SKIPIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5 , SKIPOFF) ; 
gemdos (0x5, BELL) ; 
break; 
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case MARGINO : 

ob jc_change (menu_tree, MARGINO , 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

obj exchange (menu_tree, MARGIN10, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5 , LMARG ) ; 
gemdos ( 0x5 , LMAROFF) ; 
gemdos (0x5, BELL) ; 
break; 

case MARGIN1 0 : 

ob jc_change (menu_tree, MARGIN10 , 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, MARGINO , 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, LMARG) ; 
gemdos (0x5,POS10) ; 
gemdos (0x5, BELL) ; 
break; 

case EXIT: 

ob jc_change (menu_tree, EXIT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 
gemdos (0x5, RET) ; 

f orm_dial (3, xob j , yob j , wob j , hob j ) ; 
f orm_dial (2, 1,1, 1,1, xob j , yob j, wob j , hob j ) ; 
ende=TRUE; 
break; 

} /* End switch */ 

} /* End while */ 
desktop ( ) ; 

} /* End main () */ 

desktop ( ) 

{ 

v_clsvwk ( ) ; 
appl_exit ( ) ; 

} 
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If you don't have an SG-10 or Epson-compatible printer you will have to 
substitute the appropriate codes for your printer in the program. 

Small changes, which provide only aesthetic changes are the calls to 
graf_growbox and graf_shrinkbox within the window routines. 
They cause the box to appear to grow and shrink. 

Something new is the call to the RSC file. And since rsrc_load ( ) is a 
function, it also returns a function value, namely TRUE or FALSE. In case 
of an error in the loading procedure, an alert tree can be displayed and 
program execution terminated. 

An important call is to r s rc_gaddr ( ) . This function returns a pointer to 
the object desired. 

Example: 

After the start of the program the entire tree must be displayed from first to 
last object. We must therefore find out where the root of the tree, in our case 
the SGMENU tree, is located in memory. 

So we call rsrc_gaddr ( ) and tell the AES what we're looking for: 
namely the object SGMENU is a tree (R_TREE) . The address of SGMENU 
should be assigned to the pointer &menu_tree : 

rsrc_gaddr (R_TREE, SGMENU, &menu_tree) ; 

To display the tree or any other object, we call Ob j ect_Draw, a function 
which draws partial sections of a tree: 

ob jc_draw (menu_tree, 0 , MAX_DEPTH, 0, 0, wdesk, hdesk) ; 

The parameters, in order of their occurrence determine which tree is drawn, 
starting with which object (here zero, the first), up to chich (the maximum 
number can be read under INFO in the RCS), and finally a surface which 
will be prepared for this task. 

The call to Ob ject_Find within the main loop outputs the number of the 
object under the mouse pointer after entering the mouse position — which is 
given as the fourth and fifth parameters of event_button. This is then 
compared to all of our object numbers, for which the symbolic constants 
stand, in order, until a match is found and the corresponding action is 
carried out. 
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The Ob ject_Change statements there have no other function then to 
make the object in question black. 

The f orm_dial statemenrts in the program listing display the dialog box. 
They release the corresponding memory space — the underlying screen area 
must be saved — draw the growing or shrinking box, and then release the 
previously occupied memory area again. 

For those of you who do not have a C compiler the following BASIC 
loaders will create the PRINIT . RCS and SGINIT . prg programs on your 
disk. 


100 rem BASIC loader to create PRINIT. RSC for SG10INIT.PRG 
1000 open"R" , 1, "a :prinit . rsc", 16 
1010 f ield#l, 16 as bin$ 

1020 a$="" : for i=l TO 16: read d$:if d$="*"then 1050 

1030 a=val ("&H"+d$) : s=s+a : a$=a$+chr$ (a) :next 
1040 lset bin$=a$ : rec=rec+l :put l,rec:goto 1020 
1050 data 00, 00, 01, E4, 00, CC, 00, CC, 00, CC, 00, 00, 00, 24, 00, CC 
1060 data 00, 00, 05, 14, 00,22, 00, 01, 00, 0A, 00, 00, 00, 00, 00, 00 
1070 data 00, 00, 05, 18, 53, 47, 31, 30, 20, 49, 4E, 49, 54, 00, 00, 00 
1080 data 20,20, 66, 72, 6F, 6D,3A, 20, 41, 42, 41, 43, 55, 53, BA, 73 
1090 data 20 , 54, 69, 70 , 73, 20, 26, 20, 54, 72, 69, 63, 6B, 73, 20 , 20 
1100 data 00, 00, 00, 4A, 57, 20, 31, 30, 2E, 38, 35, 00, 00, 00, 4F, 6B 
1110 data 61,79,20,21,00,4F,4E,00,4F,46,46,00,4F,4E,00,4F 
1120 data 46, 46, 00, 4F, 4E, 00, 4F, 46, 46, 00, 4F, 4E, 00, 4F, 46, 46 
1130 data 00, 4F, 4E, 00, 4F, 46, 46, 00, 4F, 4E, 00, 4F, 46, 46, 00, 31 
1140 data 30, 00, 20, 30, 00, 45, 4C, 49, 54, 45, 00, 00, 00, 50, 52, 4F 
1150 data 50, 00, 00, 00, 49,54, 41, 4C, 49, 43, 00, 00, 00, 43, 4F, 4E 
1160 data 44, 45, 4E, 00, 00,00, 4E, 4C, 51, 00,00, 00,53, 4B, 49, 50 
1170 data 00, 00, 00, 4D, 41, 52, 47, 49, 4E, 00, 00, 00, 00, 00, 00, 24 
1180 data 00, 00, 00, 2E, 00, 00, 00, 2F, 00, 03, 00, 06, 00, 00, 11, 80 
1190 data 00, 00, FF,FF, 00, 0A, 00,01, 00, 00, 00,30, 00,00,00,51 
1200 data 00, 00, 00,52,00,05,00, 06, 00, 02, 11, A0, 00,00, FF,FF 
1210 data 00, 21, 00, 01, 00, 00, 00, 53, 00, 00, 00, 5C, 00, 00, 00, 5D 
1220 data 00 , 05, 00, 06, 00, 02, 11, 80 , 00, 00 , FF, FF, 00, 09, 00, 01 
1230 data 00, 00, 00, 95, 00, 00, 00, 9B, 00, 00, 00, 9C, 00, 03, 00, 06 
1240 data 00, 00, 11, 60, 00, 00, FF,FF, 00, 06, 00, 01, 00, 00, 00, 9D 
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1250 data 00, 00, 00, A2, 00, 00, 00, A3, 00, 03, 00, 06, 00, 00, 11, 60 
1260 data 00,00,FF,FF,00,05,00,01,00,00,00,A4,00,00,00,AB 
1270 data 00, 00, 00, AC, 00, 03, 00, 06, 00, 00, 11, 60, 00, 00, FF,FF 
1280 data 00, 07, 00, 01, 00, 00, 00, AD, 00, 00, 00, B4, 00, 00, 00, B5 
1290 data 00, 03, 00, 06, 00, 00, 11, 60, 00, 00, FF, FF, 00, 07 , 00, 01 
1300 data 00, 00, 00, B6, 00, 00, 00, BA, 00, 00, 00, BB, 00, 03, 00, 06 
1310 data 00, 00, 11, 60, 00, 00,FF,FF, 00, 04, 00, 01, 00, 00, 00, BC 
1320 data 00, 00, 00, Cl, 00, 00, 00, C2, 00, 03, 00, 06, 00, 00, 11, 60 
1330 data 00, 00, FF,FF, 00, 05, 00,01,00,00, 00, C3, 00, 00, 00, CA 

1340 data 00, 00, 00, CB, 00, 03, 00, 06, 00, 00, 11, 60, 00, 00, FF,FF 
1350 data 00, 07, 00, 01, FF, FF, 00, 01, 00, 21, 00, 14, 00 , 00 , 00 , 10 

1360 data 00,02,11,20,00,00,00,00,00,24,00,13,00,05,00,02 

1370 data 00, 04, 00, 14, 00, 00, 00,20, 00, FF, 33, A2, 00, 06, 00, 01 
1380 data 00, 18 , 00, 03, 00 , 03, FF, FF, FF, FF, 00 , 15, 00, 00 , 00 , 00 
1390 data 00, 00, 00, CC, 00, 07, 00, 00, 00, 09, 00, 01, 00, 04, FF,FF 
1400 data FF, FF, 00 , 15, 00 , 00, 00, 00, 00, 00 , 00 , E8, 00 , 00 , 00 , 01 
1410 data 0 0 , 1 8 , 0 6 , 0 0 , 0 0 , 0 1 , FF , FF , FF ,FF, 00, 15, 00, 00, 00, 00 

1420 data 00, 00, 01, 04, 00, 09, 00, 02, 00, 06, 06, 00, 00, 06, FF,FF 

1430 data FF,FF, 00, 1A, 00, 07, 00, 00, 00, 00, 00, 5E, 00, 06, 00, 11 

1440 data 00,18,00,01,00,09,00,07,00,08,00,14,00,00,00,20 

1450 data 31, FF, 11, El, 00, OF, 00, 06, 00, OF, 00, 01, 00 , 08 , FF, FF 

1460 data FF,FF, 00, 1A, 00, 11,00,00,00,00,00, 65,00,00, 00,00 

1470 data 00, 06, 00, 01, 00, 0 6, FF, FF, FF, FF, 00, 1A, 00, 11, 00, 00 
1480 data 00, 00, 00, 68, 00, 0A, 00, 00, 00, 05, 00, 01, 00, 0C, 00, 0A 
1490 data 00, 0B, 00, 14, 00, 00, 00, 20, 31, FF, 11, 61, 00, OF, 00, 07 
1500 data 00, OF, 00, 01, 00, OB,FF,FF,FF,FF, 00, 1A, 00, 11, 00, 00 
1510 data 00, 00, 00, 6C, 00, 00, 00, 00, 00, 06, 00, 01, 00, 09, FF,FF 
1520 data FF,FF, 00, 1A, 00, 11, 00, 00, 00, 00, 00, 6F, 00, OA, 00, 00 
1530 data 00, 05, 00, 01, 00, OF, 00, OD, 00, OE, 00, 14, 00, 00, 00, 20 
1540 data 31, FF, 11, 61, 00 , OF, 00, 09, 00, OF, 00, 01, 00, OE, FF, FF 
1550 data FF, FF, 00, 1A, 00 , 01, 00, 00, 00, 00, 00 , 73, 00, 00 , 00 , 00 
1560 data 00, 06, 00, 01, 00, OC, FF, FF, FF, FF, 00, 1A, 00, 01, 00, 00 

1570 data 00, 00, 00, 76, 00, OA, 00, 00, 00, 05, 00, 01, 00, 12, 00, 10 
1580 data 00, 11, 00, 14, 00, 00, 00, 20,31, FF, 11, 61, 00, OF, 00, OA 
1590 data 00, OF, 00, 01, 00, 11, FF, FF, FF, FF, 00, 1A, 00, 11, 00, 00 

1600 data 00, 00, 00, 7A, 00, 00, 00, 00, 00, 0 6, 00, 01, 00, OF, FF, FF 
1610 data FF,FF, 00, 1A, 00, 11, 00, 00, 00, 00, 00, 7D, 00, OA, 00,00 

1620 data 00,05,00,01,00,15,00,13,00,14,00,14,00,00,00,20 
1630 data 31, FF, 11, 61, 00, OF, 00, OB, 00, OF, 00, 01, 00, 14, FF, FF 
1640 data FF,FF, 00, 1A, 00,11,00,00,00,00,00, 81, 00, 00,00,00 

1650 data 00, 06, 00, 01, 00, 12 , FF, FF, FF, FF, 00, 1A, 00, 11, 00, 00 

1660 data 00, 00, 00, 84, 00, OA, 00, 00, 00, 05, 00, 01, 00, 18, 00, 16 
1670 data 00, 17, 00, 14, 00, 00, 00,20, 31, FF, 11, 61, 00, OF, 00, OD 
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1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1900 


data 00, OF, 00, 01,00, 17, FF,FF,FF,FF, 00, 1A, 00,11,00, 00 
data 00, 00, 00, 88, 00, 00, 00, 00, 00, 06, 00, 01, 00, 15, FF,FF 
data FF , FF , 00 , 1A, 00, 11, 00, 00, 00, 00, 00, 8B, 00, 0A, 00,00 
data 00, 05, 00, 01, 00, 1A, 00, 19, 00, 19, 00, 14, 00, 00, 00, 20 
data 31, FF, 11, 61, 00, OF, 00, 0E, 00, OF, 00, 01, 00, 18,FF,FF 
data FF , FF , 00, 1A, 00, 01, 00, 00, 00, 00, 00, 8F, 00, OA, 00,00 
data 00,05,00,01,00,1B,FF,FF,FF,FF,00,1A,00,11,00,00 
data 00, 00, 00, 92, 00, OF, 00, OE, 00, 06,00, 01, 00, 1C, FF,FF 
data FF,FF, 00, 16, 00, 00, 00, 20, 00, 00, 01, 20, 00, 06, 00, 06 
data 00, 08, 00, 01, 00, ID, FF, FF, FF, FF, 00, 16, 00,00,00,20 
data 00, 00, 01, 3C, 00, 06, 00, 07, 00, 08, 00, 01, 00, IE, FF,FF 
data FF,FF, 00, 16, 00, 00, 00, 20, 00, 00, 01, 58, 00, 06, 00, 09 
data 00,08,00,01,00,1F,FF,FF,FF,FF, 00, 16,00,00,00,20 
data 00, 00, 01,74,00,06,00, OA, 00, 08, 00, 01, 00,20, FF,FF 
data FF,FF, 00, 16, 00, 00, 00, 2 0,00, 00, 01, 90, 00, 06, 00, OB 
data 00, 08, 00, 01, 00,21, FF,FF,FF,FF, 00, 16, 00,00,00,20 
data 00,00,01, AC , 0 0 , 0 6 , 0 0 , OD , 0 0 , 0 8 , 0 0 , 0 1 , 0 0 , 0 0 , FF , FF 
data FF,FF, 00, 16, 00,20,00,20, 00, 00, 01, C8, 00,06,00, OE 
data 00, 08, 00, 01, 00, 00, 01, E4, 00, 00, 00, 00, 00, 00, 00, 00 
data * 

close 1 : if s<> 57208 then prinf'ERROR IN DATA!" rend 
print "Ok . " 
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100 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 


rem BASIC loader to create SG10INIT.PRG 
open"R", 1, "sglOinit .prg", 16 
f ield#l, 16 as bin$ 

a$="":for i=l TO 16: read d$:if d$="*"then 1050 
a=va l ( " &H" +d$ ) : s=s+a : a$=a$+chr$ (a ) :next 
lset bin$=a$ : rec=rec+l :put l,rec:goto 1020 
data 60, 1A, 00, 00, 14, 30, 00,00, 02 ,24, 00, 00, 09, 70, 00, 00 
data 00,00,00,00,00,00,00,00,00,00,00, 00, 2 A, 4F, 2E, 7C 
data 00,00, 1A, 54, 2 A, 6D, 00, 04, 20, 2D, 00, 0C, DO, AD, 00, 14 
data DO, AD, 00, 1C, DO, BC, 00,00,01,00,2F,00,2F,OD,3F,00 
data 3F, 3C, 00 , 4 A, 4E, 41 , DF , FC, 00, 00, 00, 0C, 4E, B9, 00, 00 
data 02, 00, 2F, 3C, 00, 00, 00, 00, 4E, 41, 22, 2F, 00, 04, 30, 3C 
data 00, C8, 4E, 42, 4E, 75, 4E,56,FF,FC, 3E,B9, 00, 00, IF, 92 
data 3F, 39, 00, 00, IF, BA, 3F, 39, 00,00,1F,C2,3F,39,00,00 
data IF, CO, 3F, 3C, 00, 01, 4E,B9, 00, 00, 13, 36, 50, 8F, 33, CO 
data 00,00,1F,B8,3E,B9,00,00,1F, 92, 3F, 39, 00, 00, IF, BA 
data 3F,39,00,00,1F,C2,3F,39,00,00,1F,CO,3F,39,00,00 

data 1C, 74, 3F, 39, 00, 00, IE, A2, 30,39, 00, 00, IF, 92, 48, CO 
data 81, FC, 00, 02, 3F, 00, 30, 39, 00, 00, IF, C2,D1, 57, 30, 39 
data 00,00, IF, BA, 48, CO, 81, FC, 00, 02, 3F, 00, 30, 39, 00, 00 
data IF, CO, Dl, 57, 4E,B9, 00, 00, 11, 02, DF, FC, 00, 00, 00, 0E 
data 3E, B9, 00, 00, IF, 92, 3F, 39, 00, 00, IF, BA, 3F, 39, 00, 00 

data 1F,C2,3F, 39, 00, 00, 1F,C0,3F,39, 00, 00, 1F,B8, 4E,B9 
data 00, 00, 13, 70, 50, 8F, 2E,BC, 00,00,1C,98,2F,3C,00,00 
data 1E,D2,2F, 3C, 00, 00 , 1E,D6, 2F, 3C, 00, 00, 1E,D4, 3F, 3C 
data 00,04,3F,39,00,00,1F,B8,4E,B9,00,00, 13,DE,DF,FC 
data 00,00,00,10,4E,5E,4E,75,4E,56,FF,FC,3E,B9,00,00 

data IF, B8, 4E,B9, 0 0, 00, 13, AA, 3E, B9, 00, 00, 1C, 98, 3F, 39 
data 00, 00, 1E,D2, 3F, 39, 00, 00, 1E,D6, 3F, 39, 00, 00, 1E,D4 
data 3F, 39, 00, 00, 1C, 74, 3F, 39, 00, 00, IE, A2, 30, 3 9, 00 , 00 
data 1C, 98, 48, CO, 81, FC, 00, 02, 3F, 00, 30, 39, 00, 00, IE, D6 
data Dl, 57, 30, 39, 00, 00, IE, D2, 48, CO, 81, FC, 00, 02, 3F, 00 
data 30 , 39, 00 , 00, IE, D4, Dl, 57, 4E, B9, 00 , 00, 11, 54 , DF, FC 

data 00, 00, 00, 0E, 3E,B9, 00, 00, 1F,B8, 4E,B9, 00, 00, 13, C4 
data 4E, 5E, 4E, 75, 4E, 56,FF,FA, 3D, 7C, 00,01,FF,FE,60,14 
data 30, 6E,FF,FE,D1,C8,D1,FC, 00, 00, IE, DA, 30, BC, 00,01 
data 52, 6E,FF,FE, 0C, 6E, 00,0A,FF,FE, 6D, E4, 33, FC, 00, 02 

data 00, 00, IE, EE, 33, F9, 00, 00, 1C, 96, 00, 00, 1C, 94, 2E,BC 
data 00, 00, 1E,FA,2F,3C, 00, 00, 1C, 94,2F,3C, 00, 00, IE, DA 
data 4E,B9,00,00,0E,3E,50,8F,4E,5E,4E,75,4E,56,FF,FA 

data 4E,B9, 00, 00, OF, 6E, 33, CO, 00, 00, 1E,D8,2E,BC, 00, 00 
data 1C, 74, 2F, 3C, 00, 00, IE, A2, 2F, 3C, 00, 00, IF, 74, 2F, 3C 

data 00, 00, 1F,B6, 4E,B9, 00, 00, 11, A6,DF,FC, 00, 00, 00, 0C 
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1420 

data 

1430 

data 

1440 

data 

1450 

data 

1460 

data 

1470 

data 

1480 

data 

1490 

data 

1500 

data 

1510 

data 

1520 

data 

1530 

data 

1540 

data 

1550 

data 

1560 

data 

1570 

data 

1580 

data 

1590 

data 

1600 

data 

1610 

data 

1620 

data 

1630 

data 

1640 

data 

1650 

data 

1660 

data 

1670 

data 

1680 

data 

1690 

data 

1700 

data 

1710 

data 

1720 

data 

1730 

data 

1740 

data 

1750 

data 

1760 

data 

1770 

data 

1780 

data 

1790 

data 

1800 

data 

1810 

data 

1820 

data 

1830 

data 

1840 

data 


33,C0,00,00,1C,96,2E,BC,00,00,1F,92,2F,3C,00,00 
1F,BA,2F,3C,00,00,1F,C2,2F,3C,00,00,1F,CO,3F,3C 
00, 04, 42, 67,4E,B9,00, 00, 13,DE,DF,FC, 00,00,00, 10 
61, 00, FF, 42,2E,BC,00, 00, 15, E4, 4E,B9, 00, 00,12, E8 
4A, 40 , 6 6, 1C, 2E, BC, 00 , 00, 15, EF, 3F, 3C, 00, 01, 4E, B9 
00, 00, 10, 96, 54, 8F, 20, 3C, 00, 00, 01, 2C, 61, 00, OB, 6E 
2E,BC,00,00, 1E,CE, 42, 67, 42, 67, 4E,B9, 00, 00, 13, 02 
58, 8F, 4A, 40, 66, 1C,2E,BC, 00, 00, 16, 24, 3F, 3C, 00, 01 
4E, B9, 00, 00, 10, 96, 54, 8F, 20,3C, 00, 00, 01,2C, 61, 00 
OB,3C,2E,BC,00,00,1E,CE,42,67,42,67,4E,B9,00,00 
13, 02,58, 8F,2E,BC,00,00, 1C, 7 6, 2F, 3C, 00, 00, IE, A4 
2F, 3C, 00, 00, 1E,C6,2F, 3C, 00, 00, IE, C4 , 2F, 39, 00 , 00 
1E,CE, 4E,B9, 00, 00, 10,B8,DF,FC, 00, 00,00, 10,3E,B9 
00,00,1C,76,3F,39,00,00,1E,A4,3F,39,00,00,1E,C6 
3F,39, 00, 00,1E,C4, 42, 67, 4E,B9, 00, 00, 10, 3C, 50, 8F 
3E,B9,00,00,1C,76,3F,39,00,00,1E,A4,3F,39,00,00 
1E,C6,3F,39,00,00,1E,C4,3F,3C,00,01,3F,3C,00,01 
3F,3C, 00, 01,3F,3C,00,01,3F,3C, 00,01, 4E,B9,00,00 
10,3C,DF,FC,00, 00,00, 10,3E,B9, 00, 00, IF, 92,3F, 39 
00, 00, IF, BA, 42, 67, 42, 67, 3F,3C, 00,22, 42, 67,2F,39 
00, 00, IE, CE, 4E,B9, 00, 00, 12, 0A,DF,FC, 00, 00, 00, 0E 
2E, BC, 00, 00, 1C, 9 A, 3F,3C,00,03,4E,B9,00,00,11,E8 
54, 8F, 60, 00, OA, 58,2E,BC, 00, 00, 1C, 9A, 2F, 3C, 00, 0 0 
1C, 9A, 2F , 3C, 00, 00, IE, 9E, 2F, 3C, 00, 00, ID, 9C, 3F, 3C 
00,01,3F,3C,00,01,3F,3C,00, 01, 4E, B9, 00, 00, OF, E2 
DF , FC, 00, 00, 00, 12, 33, CO, 00, 00, IB, 70, 3E, B9,00,00 
1E,9E,3F,39,00,00,1D,9C,3F,3C,00,OD,42,67,2F,39 
00, 00, 1E,CE, 4E,B9,00, 00, 12, 54,DF,FC, 00, 00, 00, OA 
33, CO, 0 0, 00, IE, AO, 30, 3 9, 00, 00, IE, AO, 60, 00,0 9, D8 
3E, BC, 00 , 01, 3F, 3C, 00 , 01, 3F, 39, 00, 00 , 1C, 98, 3F, 39 
00,00, 1E,D2,3F,39,00, 00, 1E,D6, 3F, 39, 00, 00, 1E,D4 
42, 67, 3F, 3C, 00,07,2F,39,00,00,1E,CE,4E,B9,00,00 
12 , 8E, DF , FC, 00, 00, 00, 12, 3E, BC, 00, 01, 42, 67, 3F, 39 
00,00,1C,98,3F,39,00,00,1E,D2,3F,39,00,00,1E,D6 
3F,39, 00, 00,1E,D4, 42, 67, 3F,3C, 00, 08, 2F, 39, 00, 00 
1E,CE,4E,B9,00,00,12,8E,DF,FC,00,00,00,12,3E,BC 
00,1B,3F,3C,00,05,4E,B9,00,00,OE,F4,54,8F,3E,BC 
00, 4D, 3F, 3C, 00, 05, 4E, B9, 00, 00, OE, F4, 54, 8F, 3E, BC 
0 0, 07, 3F, 3C, 00, 05, 4E,B9, 00, 00, 0E,F4, 54, 8F, 60, 00 
09, 4C, 3E, BC, 00,01,3F,3C,00,01,3F,39,00,00,1C,98 
3F, 39, 00, 00, 1E,D2,3F, 39, 00, 00, 1E,D6, 3F,39, 00, 00 
1E,D4, 42, 67, 3F, 3C, 00, 08, 2F, 39, 0 0, 00, 1E,CE, 4E, B9 
00, 00, 12, 8E,DF,FC,00, 00, 00, 12,3E,BC,00, 01, 42, 67 
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1850 

data 

1860 

data 

1870 

data 

1880 

data 

1890 

data 

1900 

data 

1910 

data 

1920 

data 

1930 

data 

1940 

data 

1950 

data 

1960 

data 

1970 

data 

1980 

data 

1990 

data 

2000 

data 

2010 

data 

2020 

data 

2030 

data 

2040 

data 

2050 

data 

2060 

data 

2070 

data 

2080 

data 

2090 

data 

2100 

data 

2110 

data 

2120 

data 

2130 

data 

2140 

data 

2150 

data 

2160 

data 

2170 

data 

2180 

data 

2190 

data 

2200 

data 

2210 

data 

2220 

data 

2230 

data 

2240 

data 

2250 

data 

2260 

data 

2270 

data 


3F,39,00,00,1C,98,3F,39,00,00,1E,D2,3F,39,00,00 

1E,D6, 3F, 39, 00, 00, 1E,D4, 42, 67, 3F, 3C, 00, 07, 2F, 39 

00, 00, 1E,CE, 4E,B9, 00, 00, 12, 8E,DF,FC, 00, 00, 00, 12 
3E,BC, 00, IB, 3F, 3C, 00, 05, 4E,B9, 00, 00, 0E,F4, 54, 8F 
3E,BC, 00, 50,3F,3C, 00, 05, 4E,B9, 00, 00, 0E, F4, 54, 8F 
3E,BC,00,07,3F,3C,00,05,4E,B9,00,00,OE,F4,54,8F 

60, 00, 08, AA, 3E,BC, 00,01, 3F,3C, 00,01, 3F, 39, 00, 00 
1C,98,3F,39,00,00,1E,D2,3F,39,00,00,1E,D6,3F,39 
00,00,1E,D4,42,67,3F,3C,00,10,2F,39,00,00,1E,CE 
4E,B9, 00, 00, 12, 8E, DF , FC, 00, 00, 00, 12, 3E, BC, 00,01 
42,67,3F,39,00,00,1C,98,3F,39,00,00,1E,D2,3F,39 
00,00,1E,D6,3F,39,00,00,1E,D4,42,67,3F,3C,00,11 
2F, 39, 00, 00, 1E,CE, 4E,B9, 00, 00, 12, 8E,DF,FC, 00, 00 
00,12,3E, BC, 00 , OF, 3F , 3C, 00, 05, 4E,B9, 00, 00, 0E,F4 
54,8F,3E,BC,00,07,3F,3C,00,05,4E,B9,00,00,0E,F4 
54, 8F, 60, 00, 08, 18, 3E,BC, 00,01,3F,3C,00,01,3F,39 
00,00,1C,98,3F,39,00,00,1E,D2,3F,39,00,00,1E,D6 
3F,39,00,00,1E,D4,42,67,3F,3C, 00, 11, 2F, 39, 00, 00 
1E,CE,4E,B9,00,00,12, 8E,DF,FC, 00,00,00,12, 3E,BC 
00, 01, 42, 67, 3F, 39, 00, 00, 1C, 98, 3F, 39, 00, 00, IE, D2 
3F, 39, 00, 00, 1E,D6, 3F,39,00, 00, 1E,D4, 42, 67,3F,3C 
00, 10, 2F, 39, 00, 00, IE, CE, 4E, B9, 00, 00, 12, 8E, DF, FC 

00,00,00,12,3E,BC,00,12,3F,3C,00,05,4E,B9,00,00 
0E, F4, 54, 8F, 3E,BC, 00, 07, 3F, 3C, 00, 05, 4E, B9, 00, 00 
OE,F4,54,8F,60,00,07,86, 3E, BC, 00,01,3F,3C,00,01 
3F,39,00,00,1C,98,3F,39,00,00,1E,D2,3F,39,00,00 
1E,D6,3F,39,00,00,1E,D4,42,67,3F,3C,00,0A,2F,39 
00, 00, 1E,CE, 4E,B9, 00,00,12, 8E,DF,FC,00, 00, 00, 12 
3E,BC, 00, 01, 42, 67, 3F,39, 00, 00, 1C, 98, 3F, 39, 00, 00 
1E,D2,3F,39, 00, 00, 1E,D6,3F,39, 00, 00, 1E,D4, 42, 67 
3F,3C, 00, OB, 2F, 39, 00, 00, IE, CE, 4E,B9, 00, 00, 12, 8E 
DF,FC, 00,00,00,12, 3E,BC, 00,1B,3F,3C,00,05,4E,B9 
00,00,OE,F4,54,8F,3E,BC,00,70,3F,3C,00,05,4E,B9 
00, 00, 0E,F4, 54, 8F, 3E,BC, 00, 01, 3F, 3C, 00, 05, 4E,B9 
00,00,OE,F4,54,8F,3E,BC,00,07,3F,3C,00,05,4E,B9 
00, 00, 0E,F4, 54, 8F, 60, 00, 06,D4, 3E,BC, 00, 01, 3F, 3C 
00, 01, 3F, 39, 00, 00, 1C, 98,3F,39,00,00,1E,D2,3F,39 
00,00,1E,D6,3F,39,00,00,1E,D4,42,67,3F,3C,00,OB 
2F,39, 00, 00, 1E,CE, 4E,B9, 00, 00, 12, 8E,DF,FC, 00, 00 
00, 12, 3E,BC, 00, 01, 42, 67,3F,39, 00, 00, 1C, 98,3F,39 
00, 00, 1E,D2, 3F,39, 00,00, 1E,D6, 3F, 39, 00, 00, 1E,D4 
42, 67, 3F, 3C, 00, 0A, 2F, 39, 00, 00 , IE, CE, 4E, B9, 0 0 , 00 
12, 8E,DF,FC, 00, 00, 00, 12,3E,BC, 00, IB, 3F,3C, 00,05 
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2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 
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data 

4E, 

B9, 

00, 

o 

o 

0E, 

F4, 

54, 

00 

3E, 

BC, 

•h. 

o 

o 

70, 

3F, 

3C, 

s. 

O 

o 

05 

data 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F, 

42, 

57, 

3F, 

3C, 

00, 

05, 

4E, 

B9 

data 

00, 

00, 

0E, 

F4, 

54, 

8F, 

3E, 

BC, 

00, 

07, 

3F, 

3C, 

00, 

05, 

4E, 

B9 

data 

00, 

00, 

0E, 

F4, 

54, 

8F , 

60, 

00, 

06, 

24, 

3E, 

BC, 

00, 

01, 

3F , 

3C 

data 

00, 

01, 

3F , 

39, 

00, 

00, 

ic. 

98, 

3F , 

39, 

00, 

00, 

IE, 

D2, 

3F , 

39 

data 

00, 

00, 

IE, 

D6, 

3F , 

39, 

00, 

V. 

O 

O 

IE, 

D4, 

42, 

67, 

3F, 

3C, 

00, 

0D 

data 

2F, 

39, 

00, 

00, 

IE, 

CE, 

4E, 

B9, 

00, 

00, 

12, 

8E, 

DF, 

FC, 

00, 

00 

data 

00, 

12, 

3E, 

BC, 

00, 

01, 

42, 

67, 

3F , 

39, 

00, 

00, 

ic. 

98, 

3F, 

39 

data 

00, 

00, 

IE, 

D2, 

3F , 

39, 

O 

o 

00, 

IE, 

D6, 

3F , 

39, 

00, 

00, 

IE, 

D4 

data 

42, 

67, 

3F , 

3C, 

00, 

0E, 

2F, 

39, 

00, 

00, 

IE, 

CE, 

4E, 

B9, 

00, 

00 

data 

12, 

8E, 

DF, 

FC, 

00, 

00, 

00, 

12, 

3E, 

BC, 

00, 

IB, 

3F , 

3C, 

00, 

05 

data 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F, 

3E, 

BC, 

00, 

34, 

3F , 

3C, 

00, 

05 

data 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F, 

3E, 

BC, 

00, 

07, 

3F, 

3C, 

00, 

05 

data 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F, 

60, 

00, 

05, 

82, 

3E, 

BC, 

00, 

01 

data 

3F, 

3C, 

00, 

01, 

3F , 

39, 

00, 

00, 

ic. 

98, 

3F , 

39, 

00, 

00, 

IE, 

D2 

data 

3F , 

39, 

00, 

00, 

IE, 

D6, 

3F , 

39, 

00, 

00, 

IE, 

D4, 

42, 

67, 

3F , 

3C 

data 

00, 

0E, 

2F, 

39, 

00, 

00, 

IE, 

CE, 

4E, 

B9, 

00, 

00, 

12, 

8E, 

DF, 

FC 

data 

00, 

00, 

00, 

12, 

3E, 

BC, 

00, 

01, 

42, 

67, 

3F , 

39, 

00, 

00, 

ic. 

98 

data 

3F , 

39, 

00, 

00, 

IE, 

D2, 

3F , 

39, 

00, 

00, 

IE, 

D6, 

3F , 

39, 

00, 

00 

data 

IE, 

D4, 

42, 

67, 

3F , 

3C, 

00, 

0D, 

2F, 

39, 

00, 

00, 

IE, 

CE, 

4E, 

B9 

data 

00, 

00, 

12, 

8E, 

DF, 

FC, 

00, 

00, 

00, 

12, 

3E, 

BC, 

00, 

IB, 

3F , 

3C 

data 

00, 

05, 

4E, 

B9, 

00, 

00, 

0E, 

F 4 , 

54, 

8F, 

3E, 

BC, 

00, 

35, 

3F , 

3C 

data 

00, 

05, 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F , 

3E, 

BC, 

00, 

07, 

3F , 

3C 

data 

00, 

05, 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F , 

60, 

00, 

04, 

E0, 

3E, 

BC 

data 

00, 

01, 

3F , 

3C, 

00, 

01, 

3F , 

39, 

00, 

00, 

ic. 

98, 

3F , 

39, 

00, 

00 

data 

IE, 

D2 , 

3F , 

39, 

00, 

00, 

IE, 

D6, 

3F, 

39, 

00, 

00, 

IE, 

D4 , 

42, 

67 

data 

3F, 

3C, 

00, 

13, 

2F, 

39, 

00, 

00, 

IE, 

CE, 

4E, 

B9, 

00, 

00, 

12, 

8E 

data 

DF, 

FC, 

00, 

00, 

00, 

12, 

3E, 

BC, 

00, 

01, 

42, 

67, 

3F , 

39, 

00, 

00 

data 

1C, 

98, 

3F , 

39, 

00, 

00, 

IE, 

D2 , 

3F , 

39, 

00, 

00, 

IE, 

D6, 

3F , 

39 

data 

00, 

00, 

IE, 

D4, 

42, 

67, 

3F, 

3C, 

00, 

14, 

2F , 

39, 

00, 

00, 

IE, 

CE 

data 

4E, 

B9, 

00, 

00, 

12, 

8E, 

DF, 

FC, 

00, 

00, 

00, 

12, 

3E, 

BC, 

00, 

IB 

data 

3F , 

3C, 

00, 

05, 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F, 

3E, 

BC, 

00, 

42 

data 

3F, 

3C, 

00, 

05, 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F , 

3E, 

BC, 

00, 

04 

data 

3F, 

3C, 

00, 

05, 

4E, 

B9, 

00, 

00, 

0E, 

F4, 

54, 

8F , 

3E, 

BC, 

00, 

07 

data 

3F, 

3C, 

00, 

05, 

4E, 

B9, 

00, 

00, 

0E, 

F4 , 

54, 

8F, 

60, 

00, 

04, 

2E 

data 

3E, 

BC, 

00, 

01, 

3F , 

3C, 

00, 

01, 

3F, 

39, 

00, 

00, 

ic. 

98, 

3F , 

39 

data 

00, 

00, 

IE, 

D2 , 

3F , 

39, 

00, 

00, 

IE, 

D6, 

3F , 

39, 

00, 

00, 

IE, 

D4 

data 

42, 

67, 

3F, 

3C, 

00, 

14, 

2F, 

39, 

00, 

00, 

IE, 

CE, 

4E, 

B9, 

00, 

00 

data 

12, 

8E, 

DF, 

FC, 

00, 

00, 

00, 

12, 

3E, 

BC, 

00, 

01, 

42, 

67, 

3F , 

39 

data 

00, 

00, 

1C, 

98, 

3F , 

39, 

00, 

00, 

IE, 

D2 , 

3F , 

39, 

00, 

00, 

IE, 

D6 

data 

3F, 

39, 

00, 

00, 

IE, 

D4, 

42, 

67, 

r 3 F , 

3C, 

00, 

13, 

2F , 

39, 

00, 

00 

data 

IE, 

CE, 

4E, 

B9, 

00, 

00, 

12, 

8E, 

r DF , 

FC, 

00, 

00, 

00, 

12, 

3E, 

BC 

data 

00, 

IB, 

3F, 

3C, 

00, 

05, 

4E, 

B9, 

rOO, 

00, 

0E, 

F4, 

54, 

8F , 

3E, 

BC 
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2710 

data 

00,42,3F,3C,00,05, 

2720 

data 

00,05,3F,3C,00,05, 

2730 

data 

00,07,3F,3C,00,05, 

2740 

data 

03,7C, 3E, BC, 00,01, 

2750 

data 

3F,39, 00, 00, 1E,D2, 

2760 

data 

1E,D4,42,67,3F,3C, 

2770 

data 

00, 00, 12, 8E,DF,FC, 

2780 

data 

3F, 39, 00, 00, 1C, 98, 

2790 

data 

1E,D6,3F,39,00,00, 

2800 

data 

00, 00, IE, CE, 4E,B9, 

2810 

data 

3E, BC, 00, IB, 3F, 3C, 

2820 

data 

3E, BC, 00, 4E, 3F, 3C, 

2830 

data 

3E, BC, 00,06, 3F, 3C, 

2840 

data 

3E,BC, 00, 07, 3F, 3C, 

2850 

data 

60,00, 02, CA, 3E,BC, 

2860 

data 

1C, 98, 3F, 39, 00, 00, 

2870 

data 

00, 00, 1E,D4, 42,67, 

2880 

data 

4E,B9,00,00,12,8E, 

2890 

data 

42, 67, 3F, 39, 00, 00, 

2900 

data 

00,00,1E,D6,3F,39, 

2910 

data 

2F , 39, 00, 00, IE, CE, 

2920 

data 

00, 12, 3E,BC, 00, IB, 

2930 

data 

54, 8F, 3E,BC, 00, 4F, 

2940 

data 

54, 8F, 3E,BC, 00,07, 

2950 

data 

54, 8F, 60,00,02,28, 

2960 

data 

00, 00, 1C, 98, 3F, 39, 

2970 

data 

3F,39,00,00,1E,D4, 

2980 

data 

IE, CE, 4E,B9, 00, 00, 

2990 

data 

00,01,42, 67, 3F, 39, 

3000 

data 

3F, 39, 00, 00, IE, D6, 

3010 

data 

00, 19, 2F, 39, 00, 00, 

3020 

data 

00, 00, 00, 12, 3E,BC, 

3030 

data 

0E,F4, 54, 8F, 3E,BC, 

3040 

data 

0E,F4,54,8F,42,57, 

3050 

data 

54, 8F, 3E, BC, 00,07, 

3060 

data 

54, 8F, 60, 00, 01, 78, 

3070 

data 

00, 00, 1C, 98, 3F, 39, 

3080 

data 

3F, 39, 00, 00, 1E,D4, 

3090 

data 

1E,CE,4E,B9,00,00, 

3100 

data 

00, 01, 42, 67, 3F, 39, 

3110 

data 

3F,39,00,00,1E,D6, 

3120 

data 

00,1A,2F,39,00,00, 

3130 

data 

00, 00, 00, 12, 3E,BC, 


4E,B9, 00, 00, 0E,F4, 54, 8F, 3E,BC 
4E,B9, 00, 00, 0E,F4, 54, 8F, 3E,BC 
4E,B9,00, 00, 0E,F4,54, 8F, 60, 00 
3F,3C, 00, 01,3F,39, 00, 00, 1C, 98 
3F,39,00,00,1E,D6,3F,39,00,00 
00, 16,2F,39, 00, 00, 1E,CE, 4E,B9 
00, 00, 00, 12, 3E,BC, 00, 01, 42, 67 
3F,39,00,00,1E,D2,3F,39,00,00 
1E,D4, 42, 67,3F,3C,00,17,2F,39 
00,00, 12, 8E,DF,FC, 00, 00, 00, 12 
00,05, 4E,B9, 00, 00, 0E,F4, 54, 8F 
00,05,4E,B9,00,00,0E,F4,54,8F 
00,05,4E,B9, 00, 00, 0E,F4, 54, 8F 
00, 05, 4E,B9, 00, 00, 0E,F4, 54, 8F 
00,01,3F,3C,00,01,3F,39,00,00 
1E,D2,3F, 39, 00, 00, 1E,D6, 3F, 39 
3F,3C,00,17,2F,39, 00, 00, IE, CE 
DF , FC, 00, 00, 00, 12,3E,BC, 00, 01 
1C, 98, 3F,39, 00, 00, 1E,D2, 3F, 39 
00, 00,1E,D4, 42, 67, 3F,3C, 00, 16 
4E,B9, 00, 00, 12, 8E,DF,FC, 00,00 
3F,3C,00, 05, 4E,B9, 00, 00, 0E,F4 
3F,3C,00,05,4E,B9,00, 00, 0E,F4 
3F,3C,00, 05, 4E,B9, 00, 00, 0E,F4 
3E,BC, 00,01,3F,3C,00,01,3F,39 
00,00,1E,D2,3F,39,00,00,1E,D6 
42, 67, 3F, 3C, 00, 1A,2F, 39, 00,00 
12, 8E, DF , FC, 00, 00, 00, 12, 3E,BC 
00, 00, 1C, 98, 3F, 39, 00, 00, 1E,D2 
3F, 39, 00, 00, IE, D4, 42, 67, 3F, 3C 
1E,CE,4E,B9, 00, 00, 12, 8E,DF,FC 
00, 1B,3F, 3C, 00, 05, 4E,B9, 00, 00 
00, 6C,3F,3C, 00, 05, 4E,B9, 00, 00 
3F , 3C, 00, 05, 4E,B9, 00, 00, 0E,F4 
3F , 3C, 00, 05, 4E,B9, 00, 00, 0E,F4 
3E,BC,00,01,3F,3C,00,01,3F,39 
00,00, 1E,D2,3F, 39, 00, 00, 1E,D6 
42,67,3F,3C,00,19,2F,39,00,00 
12, 8E,DF,FC, 00,00,00,12, 3E,BC 
00, 00, 1C, 98, 3F, 39, 00, 00, 1E,D2 
3F,39,00, 00, 1E,D4, 42, 67,3F,3C 
IE, CE, 4E,B9, 00, 00, 12, 8E,DF,FC 
00,1B,3F,3C,00,05,4E,B9,00,00 
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3140 

data 

3150 

data 

3160 

data 

3170 

data 

3180 

data 

3190 

data 

3200 

data 

3210 

data 

3220 

data 

3230 

data 

3240 

data 

3250 

data 

3260 

data 

3270 

data 

3280 

data 

3290 

data 

3300 

data 

3310 

data 

3320 

data 

3330 

data 

3340 

data 

3350 

data 

3360 

data 

3370 

data 

3380 

data 

3390 

data 

3400 

data 

3410 

data 

3420 

data 

3430 

data 

3440 

data 

3450 

data 

3460 

data 

3470 

data 

3480 

data 

3490 

data 

3500 

data 

3510 

data 

3520 

data 

3530 

data 

3540 

data 

3550 

data 

3560 

data 


0E,F4,54,8F,3E,BC,00,6C,3F,3C,00,05,4E,B9,00,00 
C)E,F4,54,8F,3E,BC,00,05,3F,3C, 00,05, 4E,B9,00,00 
0E,F4,54,8F,3E, BC, 00,07,3F,3C,00,05,4E,B9,00,00 
OE,F4,54,8F,60,00,00,C6,3E,BC,00,01,3F,3C,00,01 
3F,39,00,00,1C,98,3F,39,00,00,1E,D2,3F,39,00,00 
1E,D6,3F,39,00,00,1E,D4,42,67,3F,3C,00,05,2F,39 
00, 00, IE, CE, 4E,B9, 00, 00, 12, 8E,DF,FC, 00,00,00,12 
3E,BC,00,0D,3F,3C,00,05,4E,B9,00,00,0E,F4,54,8F 
3E,B9,00,00,1C,76,3F,39,00,00,1E,A4,3F,39,00,00 

IE, C6, 3F, 39, 00, 00, 1E,C4, 3F, 3C, 00, 03, 4E,B9, 00, 00 
10,3C,50,8F,3E,B9,00,00,1C,76,3F,39,00,00,1E,A4 
3F,39,00,00,1E,C6,3F,39,00,00,1E,C4,3F,3C,00,01 
3F, 3C, 00, 01, 3F, 3C, 00, 01, 3F, 3C, 00, 01, 3F,3C, 00, 02 
4E,B9,00,00,10, 3C,DF , FC, 00, 00, 00, 10, 3D, 7C, 00, 01 
FF,FE,60,18,60,16,5B,40,BO,7C,00,15, 62,0E,E5,40 
30, 40,D1,FC, 00,00, 15, 8C, 20, 50, 4E,D0, 0C, 6E, 00,01 
FF,FE, 66, 00,F5,A2, 61,04, 4E, 5E, 4E,75, 4E,56,FF,FC 
4E,B9, 00, 00, 0E, 14, 4E,B9, 00, 00, OF, DO, 4E, 5E, 4E, 75 
4E, 56, FF, FC, 33, FC, 00, 65, 00, 00, IF, 96, 42, 79, 00, 00 

IF, 98, 42,7 9, 00,00, IF, 9C, 33, EE, 00, 08, 00,00, IF, A2 
4E,B9,00,00,0E,BE,4E,5E,4E,75,4E, 56, FF, FC, 23, EE 
00,08,00,00, 1A, 5C, 23, EE, 00, 10, 00, 00, 1A, 64,20,2E 
00, 10, DO, BC, 00, 00,00, 5A, 23, CO, 00,00, 1A, 68,33, FC 
00,64,00,00, IF, 96, 42, 79, 00, 00, IF, 98, 33, FC, 00, OB 
00, 00, IF, 9C,20, 6E, 00, OC, 33, DO, 00, 00, 1F,A2, 4E,B9 
00, 00, 0E,BE,20, 6E, 00 , OC, 30 , B9 , 00 , 0 0 , IF, A2 , 23 , FC 
00, 00, 1A, 70, 00, 00, 1A, 5C,23,FC, 00, 00, 1B,74, 00, 00 
1A, 64, 23, FC, 00, 00, ID, 9E, 00, 00, 1A, 68, 23, FC, 00,00 
1C, 9C, 00, 00, 1A, 60,4E,5E,4E,75,23,FC,00,00,1F,96 
00, 00, 1A, 58, 22, 3C, 00, 00, 1A, 58, 70, 73, 4E, 42, 4E, 75 
23, DF, 00, 00, 1A, 6C, 4E, 4E,2F, 39, 00, 00, 1A, 6C,4E,75 
23, DF, 00, 00, 1A, 6C, 4E, 4D,2F, 39, 00, 00, 1A, 6C, 4E, 75 
23, DF, 00, 00, 1A, 6C, 4E, 41, 2F, 39, 00, 00, 1A, 6C, 4E, 75 
4E, 56,FF,F6, 33, EE, 00, 08, 00, 00, IF, 6C, 30, 2E, 00, 08 
D0,7C,FF,F6,C1,FC, 00, 03, 48,C0,D0,BC, 00,00, 14, 30 
2D, 40,FF,FA,3D,7C,00, 01,FF,FE, 60 , IE, 20 , 6E, FF, FA 
10,10,48,80,32,6E,FF, FE, D3, C9, D3, FC, 00, 00, IF, 6C 
32, 80, 52, AE,FF,FA, 52 , 6E, FF, FE, OC, 6E, 00 , 04 , FF, FE 
6D, DA, 2E, B9, 00, 00, IF, 8E, 4E, B9, 00, 0 0, 00, 3E, 42, 40 
30, 39, 00, 00, IE, FA, 4E, 5E, 4E, 75, 4E, 56,FF,FA,23,FC 
00, 00, IF, 6C, 00, 00, 1C, 7 8, 23, FC, 00, 00, IE, A6, 00, 00 
1C, 7C, 23, FC, 00, 00, IE, DA, 00, 00, 1C, 80,23,FC, 00,00 
IE, FA, 00, 00, 1C, 84, 23, FC, 00, 00, IF, AE, 00, 00, 1C, 88 
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3570 

data 

3580 

data 

3590 

data 

3600 

data 

3610 

data 

3620 

data 

3630 

data 

3640 

data 

3650 

data 

3660 

data 

3670 

data 

3680 

data 

3690 

data 

3700 

data 

3710 

data 

3720 

data 

3730 

data 

3740 

data 

3750 

data 

3760 

data 

3770 

data 

3780 

data 

3790 

data 

3800 

data 

3810 

data 

3820 

data 

3830 

data 

3840 

data 

3850 

data 

3860 

data 

3870 

data 

3880 

data 

3890 

data 

3900 

data 

3910 

data 

3920 

data 

3930 

data 

3940 

data 

3950 

data 

3960 

data 

3970 

data 

3980 

data 

3990 

data 


23, FC, 00, 00, IF, BC, 00, 00, 1C, 8C, 23, FC, 00, 00, 1C, 78 
00,00,1F,8E,3E, BC, 00, 0A, 61 , 00 , FF, 46, 33, F9, 00,00 
IE, FA, 00, 00, IF, 94,70,01, 4E,5E, 4E,75, 4E, 56,FF,FC 
3E, BC, 00, 13, 61, 00,FF,2A, 70, 01, 4E, 5E, 4E, 75, 4E, 56 
FF,FC, 33, EE, 00, 08, 00, 00, IE, DA, 33, EE, 00, 0A, 00,00 

IE, DC, 33, EE, 00, OC, 00, 00, IE, DE, 3E,BC, 00, 15, 4E,B9 
00,00,0F,04,20,6E,00,0E,30,B9,00,00,1E,FC,20,6E 
00, 12, 30, B9, 00, 00, IE, FE, 20, 6E, 00, 16, 30, B9, 00, 00 

IF, 00,20, 6E, 00, 1A, 30, B9, 00, 00, IF, 02, 42, 40, 30, 39 
00, 00, IE, FA, 4E, 5E, 4E,75, 4E, 56,FF,FC, 33, EE, 00, 08 
00,00, IE, DA, 33, EE, 00, OA, 00,00, IE, DC, 33, EE, 00, OC 
00, 00, IE, DE, 33, EE, 00, OE, 00, 00, IE, EO, 33, EE, 00, 10 
00, 00, IE, E2, 33, EE, 00, 12, 00, 0 0, IE, E4, 33, EE, 0 0, 14 
00, 00, IE, E6, 33, EE, 00, 16, 00, 00, IE, E8, 33, EE, 00, 18 
00, 00, 1E,EA, 3E,BC, 00,33, 4E,B9, 00, 00, OF, 04, 4E,5E 
4E,75,4E,56, FF , FC, 33, EE, 00, 08, 00, 00, IE, DA, 23 , EE 
00, OA, 00,00,1F,AE,3E,BC,00,34,4E,B9,00,00,OF,04 
4E,5E, 4E,75, 4E, 56, FF, FC, 23, EE, 00, 08, 00, 00, 1F,AE 
3E,BC,00,36,4E,B9,00,00,0F,04,20, 6E, 00, OC, 30, B9 
00,00, IE, FC, 20, 6E, 00, 10,30,B9, 00, 00, 1E,FE,20, 6E 
00, 14, 30, B9, 00, 0 0, IF, 00, 20, 6E, 00, 18, 30, B9, 00, 00 
IF, 02, 42, 40, 30, 39, 00, 00, IE, FA, 4E,5E,4E,75,4E,56 
FF , FC, 33, EE, 0 0, 08, 0 0, 00, IE, DA, 33, EE, 00, 0 A, 0 0, 00 
IE, DC, 33, EE, 00, OC, 00 , 00, IE, DE, 33 , EE, 00 , OE, 0 0 , 00 
IE, EO, 33, EE, 00, 10, 00, 00, IE, E2, 33, EE, 00, 12, 00, 00 
IE, E4, 33, EE, 00, 14, 00, 00, IE, E6, 33, EE, 00, 16, 00, 00 

IE, E8, 3E,BC, 00, 49, 4E,B9, 00, 00, OF, 04, 4E, 5E, 4E,75 
4E, 56, FF , FC, 33, EE, 00 , 08 , 00, 0 0 , IE, DA, 33, EE, 00, OA 
00, 00, IE, DC, 33, EE, 00, OC, 00, 0 0, IE, DE, 33, EE, 00, OE 
00, 00, IE, EO, 33, EE, 00, 10, 00, 00, IE, E2, 33, EE, 00, 12 
00, 00, IE, E4, 33, EE, 00, 14, 00, 00, IE, E6, 33, EE, 00, 16 
00, 00, 1E,E8, 3E,BC, 00, 4A, 4E, B9 , 00 , 00 , OF, 0 4 , 4E, 5E 
4E,75,4E,56,FF,FC,3E,BC,00,4D,4E,B9,00,00,OF,04 
20, 6E, 00, 08, 30, B9, 00, 00, IE, FC, 20, 6E, 00, OC, 30,B9 
00, 00, IE, FE, 20, 6E, 00, 10, 30, B9, 00, 00, IF, 0 0, 2 0, 6E 
00, 14, 30, B9, 00, 00, IF, 02, 42, 40, 30, 39, 00, 00, IE, FA 
4E,5E,4E,75,4E,56,FF, FC, 33, EE, 00, 08, 00, 00, 1E,DA 
23, EE, 00 , OA, 00 , 00 , IF, AE, 3E,BC,00,4E,4E,B9,00,00 
OF, 04, 4E,5E, 4E, 75, 4E, 56, FF, FC, 23, EE, 00,08,00,00 

IF, AE, 33, EE, 00, OC, 00,00, IE, DA, 33, EE, 00, OE, 00,00 
IE, DC, 33, EE, 00, 10, 00,00, IE, DE, 33, EE, 00, 12, 00,00 
IE, EO, 33, EE, 00, 14, 0 0,00, IE, E2, 33, EE, 00, 16, 0 0,00 
1E,E4, 3E,BC, 00, 2A, 4E,B9, 00, 00, OF, 04, 4E, 5E, 4E, 75 
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4000 

data 

4010 

data 

4020 

data 

4030 

data 

4040 

data 

4050 

data 

4060 

data 

4070 

data 

4080 

data 

4090 

data 

4100 

data 

4110 

data 

4120 

data 

4130 

data 

4140 

data 

4150 

data 

4160 

data 

4170 

data 

4180 

data 

4190 

data 

4200 

data 

4210 

data 

4220 

data 

4230 

data 

4240 

data 

4250 

data 

4260 

data 

4270 

data 

4280 

data 

4290 

data 

4300 

data 

4310 

data 

4320 

data 

4330 

data 

4340 

data 

4350 

data 

4360 

data 

4370 

data 

4380 

data 

4390 

data 

4400 

data 

4410 

data 

4420 

data 


4E, 56,FF,FC,23,EE, 00, 08, 00, 00, IF, AE, 33, EE, 00, 0C 
00, 00, IE, DA, 33, EE, 00, 0E, 00, 00, IE, DC, 33, EE, 00,10 
00, 00, IE, DE, 33, EE, 00, 12, 00, 00, 1E,E0, 3E,BC, 00, 2B 

4E,B9,00,00,OF,04,4E,5E,4E,75,4E,56,FF,FC,23,EE 
00, 08, 00, 00, IF, AE, 33, EE, 00, 0C, 00, 00, IE, DA, 33, EE 
00, 0E, 00, 00, IE, DC, 33, EE, 00, 10, 00, 00, 1E,DE, 33, EE 
00, 12, 00, 00, IE, E0, 33, EE, 00, 14, 00, 00, IE, E2, 33, EE 
00, 16, 00, 00, IE, E4, 33, EE, 00, 18, 00, 00, IE, E6, 33, EE 
00, 1A, 00, 00, 1E,E8, 3E,BC, 00, 2F, 4E, B9, 00, 00, OF, 04 
4E, 5E, 4E, 75, 4E, 56, FF , FC, 23, EE, 00, 08, 00, 00, IF, AE 
3E,BC, 00, 6E, 4E,B9, 00, 00, OF, 04, 4E, 5E, 4E, 75, 4E, 56 
FF, FC, 33, EE, 00, 08, 00, 00, IE, DA, 33, EE, 00, OA, 00,00 
IE, DC, 3E,BC,00,70,4E,B9,00,00,OF,04,20,6E,00,OC 
20, B9, 00, 00, 1F,BC, 42,40,30,39, 00, 00, IE, FA, 4E,5E 
4E, 75, 4E, 56, FF, FC, 33, EE, 00, 08, 00, 00, IE, DA, 33, EE 
00, OA, 00, 00, IE, DC, 33, EE, 00, OC, 00, 00, 1E,DE, 33, EE 
00, OE, 00, 00, IE, EO, 33, EE, 00, 10, 00, 00, IE, E2, 3E, BC 
00, 64,4E,B9,00,00,0F,04,4E,5E,4E,75,4E,56,FF,FC 
33, EE, 00, 08, 00, 00, IE, DA, 33, EE, 00, OA, 00, 00, IE, DC 
33, EE, 00, OC, 00, 00, IE, DE, 33, EE, 00, OE, 00, 00, IE, EO 
33, EE, 00, 10,00,00, IE, E2,3E,BC, 00, 65, 4E,B9, 00, 00 
OF, 04, 4E, 5E, 4E,75, 4E, 56,FF,FC, 33, EE, 00,08,00,00 
IE, DA, 3E,BC, 00, 66, 4E,B9, 00, 00, OF, 04, 4E, 5E, 4E, 75 
4E, 56, FF , FC, 33, EE, 00 , 0 8 , 00 , 00 , IE, DA, 3E, BC, 00 , 67 
4E,B9, 00, 00, OF , 04, 4E, 5E, 4E, 75, 4E, 56, FF, FC, 33, EE 
00,08,00,00, IE, DA, 33, EE, 00, OA, 00,00, IE, DC, 3E, BC 
00, 68, 4E,B9, 00, 00, OF, 04,20, 6E, 00, OC, 30, B9, 00,00 
1E,FC,20,6E,00,10,30,B9,00,00,1E,FE,20,6E,00,14 
30, B9, 00, 00, IF, 00, 20, 6E, 00, 18, 30, B9, 00, 00, IF, 02 

42. 40. 30. 39. 00. 00. 1E, FA, 4E,5E,4E, 75, 00, 01, 00, 02 

01 . 01 . 02 . 01 . 01 . 00 . 01 . 01 . 02 . 01 . 01 . 01 . 01 . 01 . 00. 00 

00. 00.00.00.00.00.00.00.01.00.00.01.00.03.05.00 

05.05.00. 00.01.01.02.01.00.10.07.01.02.01.00.00 

00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 01 , 01 , 01 , 02 , 01 , 01 , 02,01 

01 , 02 , 01 , 01 , 01 , 01 , 02 , 01 , 01 , 01 , 00 , 00 , 00 , 00 , 00, 00 

00,00,00,00,00,00,02,01,01,01,01,01,06,01,01,04 

01.01.01.03.01.02.01.01.04.02.01.08.01.01.00. 00 
00,00,00,00,01,01,01,09,01,01,01,01,01,01,01,00 
00,05,01,00,00,00,00,00,00,00,00,00,00,00,00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 

04.03.00. 08.03.00.06.01.00.08.01.00.08.01.00.04 

01. 01. 03. 01. 01. 00. 05. 00. 01. 01. 01. 00. 05. 00. 00. 01 
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4430 data 01,00,01,01,00,00,00,00,00,00,00,00,00,00,00,00 
4440 data 00,00,00,00,00,00,00,00,00,00,00,00,00,02,02,00 
4450 data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
4460 data 00,00,00,00,00,00,00,00,00,00,05,01,00,05,01,00 
4470 data 01,01,00,01,01,00,02,05,00,06,01,00,02,01,00,01 
4480 data 01,00,06,05,00,00,00,00,00,01,01,00,01,00,02,01 
4490 data 00,02,01,01,01,01,01,00,00,00,00,00,00,00,00,00 
4500 data 00,00,00,00,00,00,00,01,02,03,01,02,01,01,01,01 
4510 data 01, 01, 00, 01, 01, 00, 01, 02, 00, 00, 0D, 2C, 00, 00, 0D, F0 
4520 data 00, 00, 04, 04, 00, 00, 04, A6, 00, 00, 0D,F0, 00, 00, 06, 6C 
4530 data 00 , 00, 07 , IE, 00 , 00, 0D, F0, 00, 00 , 07 , CE, 00 , 00 , 08 , 70 
4540 data 00, 00, 0D,F0, 00, 00, 05, 48, 00, 00, 05, DA, 00, 00, 0D,F0 
4550 data 00, 00, 09, 12, 00, 00, 09, C4, 00, 00, 0D,F0, 00, 00, 0A, 76 
4560 data 00, 00, 0B, 28, 00, 00, 0D,F0, 00, 00, 0C, 7A, 00, 00, 0B,CA 
4570 data 50 , 52 , 49, 4E, 4 9, 54, 2E, 52, 53, 43, 00 , 5B, 33, 5D, 5B, 42 
4580 data 61, 64, 20, 43, 6F, 70, 79, 3F, 7C, 50, 52, 49, 4E, 49, 54, 2E 
4590 data 52, 53, 43, 7C, 63, 6F, 75, 6C, 64, 20, 6E, 6F, 74, 20, 62, 65 
4600 data 20, 66, 6F, 75, 6E, 64, 2E, 5D, 5B, 41, 62 , 6F, 72, 74, 5D, 00 
4610 data 5B, 33, 5D, 20, 5B, 46, 61, 74, 61, 6C, 20, 65, 72, 72, 6F, 72 
4620 data 21, 7C, 52, 65,73, 6F, 75, 72, 63, 65,20, 46, 69, 6C, 65,20 
4630 data 6E, 6F, 74, 20, 4F, 4B, 2E, 5D, 5B, 41, 62, 6F, 72, 74, 5D, 00 
4640 data 00, 00, 00, 04, 2E, IE, 06, 06, 06, OA, 08, 06, 06, 06, 06, 06 
4650 data 06, 06, OE, 08, OE, 08, OC, 06, 06, 06, 06, 06, 08, 06, 06, 06 
4660 data OA, 06, 14, 06, 06, 06, 06, 06, 06, 06, 06, OE, 08, OE, 08, OC 
4670 data 06,10,18,06,04,06,06,06,06,10,06,06,06,06,06,06 
4680 data OC, 06, 06, 06, 06, OC, 10, 06, OA, OA, 08, OA, OA, OC, OA, 08 
4690 data OA, OA, 08, 06, 06, 06, 06, 06, OC, 06, 06, 06, 08, 08, 06, 06 
4700 data 06, 1A, OC, 06, 10, 06, OC, OA, OC, 06, 06, 06, 12, OC, 06, 06 
4710 data OC, 06, OC, 06, 12, 06, 06, 06, OC, 06, 12, 06, 06, 06, OC, 06 
4720 data 14, 10, 10, 14, 06, 06, 06, OC, 06, 12, 06, 06, 06, OC, 06, 14 
4730 data 10, 10, 14, 06, 06, 06, OC, 06, 12, 06, 06, 06, OC, 06, 14, 10 
4740 data 14, 06, 06, 06, OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 14, 06 
4750 data 06, 06, OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 10, 14, 06 
4760 data 06, 06, OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, OE, 10, 14, 06 
4770 data 06, 06, OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 14, 06, 06 
4780 data 06, OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 14, 06, 06, 06 
4790 data OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 10, 14, 06, 06, 06 
4800 data OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 10, 14, 06, 06, 06 
4810 data OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 10, 14, 06, 06, 06 
4820 data OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 14, 06, 06, 06, OC 
4830 data 06, 12, 06, 06, 06, OC, 06, 14, 10, OE, 10, 14, 06, 06, 06, OC 
4840 data 06, 12, 06, 06, 06, OC, 06, 14, 10, 10, 10, 14, 06, 06, 06, OC 
4850 data 06, 14, 08, 06, 06, 06, OA, 08, 06, 06, 06, 1A, 22, IE, 06, 10 


212 




Abacus Software 


Atari ST Tricks and Tips 


4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5010 


data 06,06,08,06,10,08,10/08,06,08, OA, 06, OA, 06, 

data 04, 06, 04, 06, 04, 0A, 04,06, OC, 08, 08, 08, 08, 08, 

data 20, 18, 06, 08, OE, 04, 06, 04, 06, 04, 06, 04, 06, 04, 
data 06, 04, OE, 04,24,08, 08, 0A,0A, OA, OA, OA, 08,10, 
data 08, 08, 08, 08, 08, 08,0A, 10, 08,0A, 10, OA,OA,OA, 
data 08, 10, 08, 08, 08, 08, 08, 08, 08,0A, 10,08,08,08, 
data 08, 08, OA, 12, OA, OA, OA, OA, 08, 10, 08,0 A, 10,08, 
data 08, 08, 08,0A, 10, 08, 08, 08, 08,0A, 10, 08, 08, 08, 
data 08, 08, 08,0A, 10,0A, 10, 08, 0A,0 A, 08,10,08,08, 
data OA, 10, 08, 0 8, 08, 08, OA, 10, 0 A, 10, 0 A, 10, 08, OA, 
data OA, OA, 08,01,66,04,04,04,04,04,04,04,04,04, 
data 04,04,04,04,04,04,04,04,04,04,00,00,00,00, 

data * 

close l:if s<> 371988 then print"ERROR IN DATA! 
print "Ok . " 


04,06 
OE, 14 

06.04 
08,08 
OA, OA 
08,08 
08,08 
08,08 
08,08 
OA, OA 

04.04 
00,00 

" : end 
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4.5 PRINIT as a desk accessory 


To install the application as an accessory, a number of changes are 
necessary. This desk accessory program sets several parameters for an 
Epson FX-80 printer. An accessory should limit itself to one window, and 
it should not be larger than the actual dialog box. It doesn't matter much if 
the accessory can be moved around the screen since it is called for only a 
short time. This saves some programming work, memory space and loading 
time. The only function calls we need in the open_window area are 
wind_create and wind_get. For those who would really like to have a 
window, the necessary source code is included in the listing as comment 
lines. 

To make an accessory accessable from the desk menu, the procedure 
menu_register is used. As parameters it requires the ID code of the 
application (from appl_init) and a string under which the program is to 
appear on the menu. As the result, menu_register returns a number 
between zero and five, which corresponds to an accessory ID code. 

But in order to get this far, the program must be started. This takes place 
after loading the operating system. The user doesn’t notice this because the 
workstation has not yet been opened. 

After this phase of the intitialization, the accessory issues an evnt_mult i 
for all events, so as not to interfere with the main program. There it waits 
for a message event to return the actual accessory ID in the message buffer. 

As we explained before, the code of the calling application is in 
msgbuf f ( 4 ) , that is, if the condition, 

if (msgbuff(4) == menu_id) 

returns TRUE, the user has called the accessory in question. 

Now the workstation and the window are opened and a branch made to the 
actual program (here output () ; ). This corresponds to a normal 
application. The only thing to note is to declare the termination as FALSE; 
this can happen before the program is exited (not ended!), or at the 
beginning of the main loop, or else it would be possible to call the accessory 
again. 
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The most important thing to remember is that execution of an accessory is 
never ended, and you will never find an appl_exit. Accessories always 
run under multi-tasking operation, that is, every accessory is placed on the 
ready list and the evnt_multi takes care of each accessory. 

The structure of such an event_multi call looks like this: 

while (TRUE) 

• • • event_multi /* read event */ 

... Message_event /* for this accessory? */ 

... if yes: is it actual menu_id ? 

... if yes: start function 
• . . if no: keep waiting for Message event 
... if no: keep waiting for Message event 
... /* end while */ ~ 

There may never be a statement within all of the program code that could 
interrupt this loop. This is why the condition is just TRUE, which is 
naturally always the case! For an accessory the evnt multi call must 
always be available. ~ 

Next you must change the resource file using the RSC. Rename the dialog 
tree to FXMENU. Change the NLQIN and NLQOUT to MICROIN and 
MICROOUT. Change the text NLQ to MICRO. We will substitute the super 
script feature of the FX-80 instead of the near letter quality mode of the 
SG-10. By comparing the printer initialization listings in the two C 
programs you should be able to adapt these programs to any printer. 

In the desk accessory the dialog box is handled with the form do 
function. This function gives control to the AES and monitors all input to 
the dialog box. The f orm_do function only returns a value on an exit so 
change the ON, OFF, 0, 10 buttons in the resource file to SELECTED 
RADIO BUTN and TOUCHEXIT. Now we can replace our 
event_^button call with the f orm_do function. This allows input only 
in the dialog box making sure that our desk accessory does not allow 
windows to be opened over it. 

The printer s bell has also been removed for silent operation of the 
accessory. 
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/****** PROGRAM: PR-INIT **********/ 

/**★★** Initialize ACCESSORY for printer in parallel port **********/ 
/*★*★** (c) j > Walkowiak, 4. November 1985 ********/ 

♦include "obdefs.h" /* Object definitions */ 

♦include "gemdef s . h" /* Definitions for GEM */ 

♦include "define, h" 

♦include "gembind.h" 

♦include "vdibind.h" 

/***************** *************************★***************************/ 


/* Definitions for RSC-File */ 

/***************************************************** *****************y 

♦define FILENAME "PRINIT . RSC" /* Name of RSC-file */ 

♦define MAX_DEPTH 34 /* Number of all objects. Char, depth */ 

♦define FXMENU 0 /* TREE */ 

♦define EXIT 5 /* OBJECT in TREE ♦O */ 

♦define ELITEIN 7 /* OBJECT in TREE ♦O */ 

♦define ELITEOUT 8 /* OBJECT in TREE ♦O */ 

♦define PROPIN 10 /* OBJECT in TREE ♦O */ 

♦define PROPOUT 11 /* OBJECT in TREE ♦O */ 

♦define ITALIN 13 /* OBJECT in TREE ♦O */ 

♦define ITALOUT 14 /* OBJECT in TREE ♦O */ 

♦define CONDENIN 16 /* OBJECT in TREE ♦O */ 

♦define CONDENOT 17 /* OBJECT in TREE ♦O */ 

♦define MICROIN 19 /* OBJECT in TREE ♦O */ 

♦define MICROOUT 20 /* OBJECT in TREE ♦O */ 

♦define SKIPIN 22 /* OBJECT in TREE ♦O */ 

♦define SKIPOUT 23 /* OBJECT in TREE ♦O */ 

♦define MARGO 26 /* OBJECT in TREE ♦O */ 

♦define MARG10 25 /* OBJECT in TREE ♦O */ 

long menu_tree; /* Address of desired RSC-Object */ 

/* Definitions of BUTTON-types in Menu */ 

♦define SELECTED 0x0001 
♦define NORMAL 0x0000 


/* Printer control codes */ 

/* here: EPSON FX-80+ */ 
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#def ine RET 13 
#def ine ESC 27 
#def ine SMALL 15 
#def ine SMALLOFF 18 
tdefine ELITE 77 
#define ELITEOFF 80 
#def ine PROPORTIONAL 112 
#def ine PSET 1 
tdefine PRESET 0 
#def ine ITALIC 52 
#def ine ITALICOFF 53 
#def ine MICROl 83 
tdefine MICR02 0 
tdefine MICROOFF 84 
tdefine SKIP 78 
tdefine SKIP1 6 
tdefine SKIPOFF 79 
tdefine LMARG 108 
tdefine LMAROFF 0 
tdefine POSIO 10 

tdefine NO_WINDOW (-1) 

tdefine MIN_WIDTH (2*gl_wbox) 
tdefine MIN_HEIGHT <3*gl_box) 


/* Return 
/* Escape 
/* Condensed type 

/* Elite 

/* Proportional type: 

/* on 
/* off 
/* Italics 

/* Super scriptl 

/* Skip over Perforation 
/* skip 6 lines */ 

/* Set left margin 
/* Count from the right 
/* Print at position 10 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 


*/ 

*/ 

*/ 


global variables * / 


int contrl (12) ; 
int intin [128]/ 
int ptsin [128] ; 
int intout [128]; 
int pt sout [ 128 ] ; 
int pxyarray [12] ; 


k / control arrays 


/* Sufficient memory for all circumstances*/ 


*7 


/* Array for x,y coordinates 


*/ 


int work_in [ 11 ] ; 
int work_out [57 ] / 


/* Input in GSX array 
/* Output from GSX array 


*/ 

*/ 


int 

handle, i; 

/* 

int 

phys_handle; 

/* 

int 

wi_handle; 

/* 


virtual workstation handle 
physical workstation handle 
Window handle 


*/ 

*/ 

*/ 


extern gl^apid; /* Application identifier 

extern long gemdos () ; /* for GEMDOS-Call 


*/ 

*/ 
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int menu_id; /* Accessory marker in Desk menu */ 

int gl_hchar, gl_wchar; /* Character height & width */ 

int gl_wbox, gl_hbox; 

int xwork, ywork, wwork, hwork; /* Size of working window */ 

int xdesk, ydesk, wdesk, hdesk; /* Size of desktop */ 

int xold, yold, hold, wold; /* Help variables by window manipulation*/ 
int xob j , yob j, wob j , hob j ; /* size of an object */ 

int mausx, mausy; /* Where is the mouse ? */ 

int dummy; /* ... for dummy parameter */ 

int event; /* Which input device */ 

int msgbuff[8]; 


int title, item; /* Menu title and current object */ 

int ende; 


int 

top_window; 

/* 

handle of topped window */ 

int 

key code; 

/* 

keycode returned by event-keyboard */ 

int 

mx, my; 

/* 

mouse x and y 

pos. */ 

int 

but down; 

/* 

button state 

tested for, UP/DOWN */ 

int 

ret ; 

/* 

dummy return 

variable */ 

int 

hidden; 

/* 

current state 

of cursor */ 

int 

fulled; 

/* 

current state 

of window */ 


/**★★*★***★**★★***★★*★*★★**■*■*★**★*★★**★★★**★★■****•*■***★★*****★★**★/ 
/* open virtual workstation */ 

/★*★**★★*★***-*•★**★★*★**★**★★*****★*******★**★***★*★★★■*:■*•★***★**■*•★★/ 
open_vwork ( ) 

{ 

int i ; 

for (i=0; i<10; work_in [i++] -1) ; 
work_in [10] =2; 
handle=phy s_handle ; 
v_opnvwk (work_in, &handle, work_out) ; 

} 
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/********************************* i ,. ki ,i'i' i , i ' i , i , i , i , i 'i, iri ' i , i ' i ' i ' i '* irti ' i ' i ' i ' i ' i ' i ' i ' / 

/* open window * 

/*.***********************************,***.***********».**.******/ 
°pen_window { ) 

{ 

wi_handle=wind_create ( 0x0000, xobj , yob j , wob j , hob j ) ; 

/* Window only as big as dialog box (obj)*/ 

/* wind_set (wi_handle, WF_NAME, " name goes here ”,0,0); only when 
window w/ title line 

graf_growbox (xdesk+wdesk/2, ydesk+hdesk/2, gl_wbox, gl hbox, xdesk, ydesk, wde 
sk, hdesk) ; */ ~ 


wind_open (wi_handle,xobj,yobj,wobj,hobj) ; 

/* Open work window */ 

wind_get (wijiandle, WF_WORKXYWH, sxwork, Sywork, Swwork, shwork) ; 


/* Accessory Init . Until First Event_Multi */ 

main { ) 

{ 


/ 


appl_init ( ) ; 

phys_handle=graf_handle ( &gl_wchar , &gl_hchar , &gl_wbox, &gl hbox) ; 

menu_id=menu_register (gl_apid, " FX-80+ INIT"); 

wind_get (0, WF_WORKXYWH, sxdesk, Sydesk, Swdesk, Shdesk) ; 


if ( !rsrc_load (FILENAME) ) /* Load RSC-file */ 

form_alert (1, " [3] [Bad copy? IPRINIT.RSCI couldn't be 
found! ] [Cancel] ") ; 

} 

if (rsrc_gaddr (0,0, &menu_tree) == 0) 

{ 

f°rm_alert (1, " [3] [Fatal error !! | Resource File not 

OK. ] [Cancel] ") ; 

} 


rsrc_gaddr (RJTREE, FXMENU, &menu_tree) ; 
f°nn_center (menu__tree, &xobj, &yobj, &wobj, &hobj) ; 

mu It i ( ) ; 

} 
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while (TRUE) { 

event = evnt_multi (MU_MESAG | MU_BUTTON | MU_KEYBD, 

0 , 0 , 0 , 0 , 0 , 

0 , 0 , 0 , 0 , 0 , 

msgbuf f , 0, 0, &mausx, &mausy, &dummy, Sdummy, 

& dummy, & dummy) ; 


if (event & MU_MESAG) 
switch (msgbuff[0]) { 

case AC_0PEN : 

if (msgbuf f [4] == menu_id) { 
open_vwork ( ) ; 
open_window ( ) ; 
output ( ) ; 

wind_close (wi_handle) ; 
wind_delete (wi_handle) / 
v_clsvwk (handle) ; 

} 

break; 

} /* switch */ 

} /*while TRUE */ 

} 

output ( ) 

{ 

rsrc_gaddr (R_TREE, FXMENU, &menu_tree) ; 
form_center (menu_tree, &xobj, &yobj, &wobj, &hobj) ; 
f orm_dial (0, xob j , yob j , wob j, hob j ) ; 
form_dial (1, 1, 1, 1, 1, xob j, yob j, wob j, hobj) ; 

objc_draw (menu_tree, 0 , MAX__DEPTH, 0, 0, wdesk, hdesk) ; 

ende - FALSE; /* Otherwise, just one run */ 

while (ende != TRUE) { 

item = f orm_do (menu_tree, FXMENU) ; 

/♦returns obj. number on exit*/ 

/* removed to use form_do all selected objects must be TOUCHEXIT or EXIT 
event =evnt_but ton (1,1,1, &mausx, &mausy , & dummy , & dummy) ; 
item=ob jc_f ind (menu_tree, FXMENU, 13, mausx, mausy) ; 

which object in menu_tree is at mouse pos */ 
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switch (item) { 

case ELITEIN: 

°b jc_chang e (menu_t ree, ELITE IN, 0, xob j , yob j , wob j , hob j , SELECTED, 1 ) ; 

°bjC— change (menu_tree, ELITEOUT, 0, xob j, yob j,wobj, hob j, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, ELITE) ; 
break; 

case ELITEOUT: 

ob j c — change (menu_tree, ELITEOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob j c — change (menu_tree, ELITEIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5, ELITEOFF) ; 
break; 

case CONDENIN : 

ob jc_change <menu_tree, CONDENIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1 ) ; 

ob i c — chan ge (menu_tree, CONDENOT, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, SMALL) ; 
break; 

case CONDENOT : 

^b jc — change <menu_tree, CONDENOT, 0, xwork, ywork, wwork, hwork, SELECTED, 1 ) ; 

ob jc — change (menu_tree, CONDENIN, 0, xwork, ywork , wwork , hwork, NORMAL, 1 ) ; 
gemdos (0x5, SMALLOFF) ; 
break; 

case PROPIN : 

ob jc_change (menu_tree, PROPIN, 0 , xwork, ywork, wwork, hwork, SELECTED, 1) ; 

°k j c _' change (menu_tree, PROPOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1 ) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5 , PROPORTIONAL) ; 
gemdos (0x5, PSET) ; 
break; 

case PROPOUT: 

olD 3 c _ c h an ge (menu_tree, PROPOUT , 0, xwork, ywork, wwork, hwork, SELECTED, 1 ) ; 

°k j c _change (menu_tree, PROPIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5 , PROPORTIONAL) ; 
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gemdos (0x5 , PRESET) ; 
break; 


case ITALIN: 

ob jc_change (menu__tree, ITALIN, 0, xwork, ywork, wwork , hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, ITALOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, ITALIC) ; 
break; 

case ITALOUT : 

ob jc_change (menu_tree, ITALOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1 ) ; 

ob jc_change (menu_tree, ITALIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, ITALICOFF) ; 
break; 

case MICROIN : 

ob jc_change (menu_tree, MICROIN, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, MICROOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1 ) ; 
gemdos (0x5, ESC) ; 
gemdos (Ox5,MICR01) ; 
gemdos ( 0x5 , MICR02 ) ; 
break; 

case MICROOUT : 

ob jc_change (menu_tree, MICROOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, MICROIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1 ) ; 
gemdos ( 0x5, ESC) ; 
gemdos ( 0x5 , MICROOFF) ; 
break; 

case SKIP IN : 

ob jc_change (menu_tree, SKIP IN, 0, xwork , ywork, wwork, hwork, SELECTED, 1) ; 

ob jc_change (menu_tree, SKIPOUT, 0, xwork, ywork, wwork, hwork, NORMAL, 1 ) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, SKIP) ; 
gemdos (0x5, SKIP1) ; 
break; 
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case SKIPOUT : 

°k jC— change (menu_tree, SKIPOUT, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

objc_change (menu_tree, SKIPIN, 0, xwork, ywork, wwork, hwork, NORMAL, 1 ) ; 
gemdos (0x5, ESC) ; 
gemdos ( 0x5, SKIPOFF) ; 
break; 

case MARGO: 

ob jc_change (menu_tree, MARGO , 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ob j exchange (menu_jtree, MARG10, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos {0x5, ESC) ; 
gemdos (0x5, LMARG) ; 
gemdos (0x5, LMAROFF) ; 
break; 

case MARG10 : 

ob jc_change (menu_tree, MARG10, 0, xwork, ywork, wwork, hwork, SELECTED, 1) ; 

ot> ^ c — ' change ( men u_tree, MARGO, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 
gemdos (0x5, ESC) ; 
gemdos (0x5, LMARG) ; 
gemdos (0x5,POS10) ; 
break; 

case EXIT: 

°b jc_change (menu_tree, EXIT, 0 , xwork, ywork, wwork, hwork, SELECTED, 1) ; 
gemdos (0x5, RET) ; 

f orm_dial (2, xob j, yob j , wob j , hob j ) ; 
form_dial (3, 1, 1, 1, 1, xob j, yob j, wob j, hob j) ; 
ende=TRUE; 

°bj exchange (menu_tree, EXIT, 0, xwork, ywork, wwork, hwork, NORMAL, 1) ; 

/* Return; otherwise, a break on the next accessory call 
break; 

} /* End switch */ 

} /* End while */ 

} 
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For those of you who don’t have a C compiler, the following BASIC 
loaders will create the files PRINIT.RSC and FX80INIT.ACC on your 
disk. 

100 ' BASIC loader to create PRINIT.RSC for FX80INIT .ACC 

1000 open"R" , 1, "a :prinit . rsc" ,16 
1010 field#l,16 as bin$ 

1020 a$="" : for i=l TO 16: read d$:if d$="*"then 1050 

1030 a=val ("&H"+d$) : s=s+a : a$=a$+chr$ (a) :next 
1040 lset bin$=a$ : rec=rec+l :put l,rec:goto 1020 


1050 

data 

00,00,01, 

1060 

data 

00,00,05, 

1070 

data 

00,00,05, 

1080 

data 

00,00,20, 

1090 

data 

BA, 73, 20, 

1100 

data 

20,20,00, 

1110 

data 

4F , 6B, 61, 

1120 

data 

00, 4F, 46, 

1130 

data 

46,46,00, 

1140 

data 

00,31,30, 

1150 

data 

52 , 4F, 50 , 

1160 

data 

4F, 4E, 44, 

1170 

data 

53, 4B, 49, 

1180 

data 

00,00,00, 

1190 

data 

00,00,11, 

1200 

data 

00,00,00, 

1210 

data 

00, 00, FF, 

1220 

data 

00,00,00, 

1230 

data 

00,09,00, 

1240 

data 

00,03,00, 

1250 

data 

00,00,00, 

1260 

data 

00,00,11, 

1270 

data 

00,00,00, 

1280 

data 

00, 00, FF, 

1290 

data 

00,00,00, 

1300 

data 

00,07,00, 

1310 

data 

00,03, 00, 

1320 

data 

00,00,00, 

1330 

data 

00,00,11, 

1340 

data 

00,00,00, 

1350 

data 

00, 00, FF, 

1360 

data 

00,00,00, 

1370 

data 

00,05,00, 


E8, 00, DO, 00 , DO, 00, DO, 

18. 00. 22. 00. 01. 00. 0,, 
1C, 46, 58, 2D, 38, 30, 2B, 
20, 66,72,6F,6D,3A,20, 
54, 69,70,73,20,26,20, 
00,00, 4 A, 57,20,31,30, 

79.20.21.00. 4,,4E,00, 

46.00. 4,,4E,00,4F,46, 
4F,4E,00,4F,46,46,00, 
00, 20, 30, 00, 45, 4C, 49, 
00, 00, 00, 49, 54, 41, 4C, 
45,4E,00,00,00,4D,49, 

50. 00. 00. 00. 4,, 41, 52, 

24.00. 00.00.30.00.00, 

80. 00. 00,FF,FF, 00, 0C, 

53.00. 00.00.54.00.05, 
FF, 00, 21, 00, 01, 00, 00, 
5F, 00, 05, 00, 06, 00, 02, 

01.00. 00.00.97.00.00, 

06.00. 00.11.60.00.00, 
9F, 00, 00, 00, A4, 00, 00, 

60. 00. 00,FF,FF, 00,05, 
AD, 00, 00, 00, AE, 00, 03, 
FF, 00, 07, 00, 01, 00, 00, 
B7, 00, 03, 00, 06, 00, 00, 

01.00. 00.00,B8,00,00, 

06.00. 00.11.60.00.00, 
C0,00,00,00,C5,00,00, 

60. 00. 00,FF,FF, 00, 05, 
CE, 00, 00, 00, CF, 00,03, 
FF ,00,07,00,01, FF, FF, 

10 . 00 . 02 . 11 . 20 . 00 . 00 , 

02,00,04,00,14,00,00, 


00, 00, 00, 24, 00, DO 
00 , 00 , 00 , 00 , 00,00 
20, 49, 4E, 49, 54, 00 
41,42,41,43,55,53 
54,72,69, 63, 6B,73 
2E, 38, 35, 00, 00, 00 
4F, 46, 46, 00, 4F, 4E 

46. 00. 4F, 4E, 00, 4F 
4F,4E,00,4F,46,46 

54.45.00. 00.00.50 

49.43.00. 00.00.43 
43, 52, 4F, 00, 00, 00 
47, 49, 4E, 00,00,00 
00,31,00,03,00,06 
00,01,00,00,00,32 
00, 06, 00, 02, 11, A0 
00, 55, 00, 00, 00, 5E 

11. 80. 00. 00,FF,FF 
00, 9D, 00,00,00, 9E 
FF , FF, 00,06,00,01 
00, A5, 00, 03, 00,06 
00, 01, 00, 00, 00, A6 
00, 06, 00, 00, 11, 60 
00, AF, 00, 00, 00, B6 

11. 60. 00. 00,FF,FF 
00, BE, 00,00, 00, BF 
FF, FF, 00,06,00,01 
00, C6, 00, 03, 00, 06 
00, 01, 00, 00, 00, C7 
00,06,00,00,11,60 
00,01,00,21,00,14 
00,00,00,24,00,13 
00,20,00,FF,33,A2 
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1380 

data 

1390 

data 

1400 

data 

1410 

data 

1420 

data 

1430 

data 

1440 

data 

1450 

data 

1460 

data 

1470 

data 

1480 

data 

1490 

data 

1500 

data 

1510 

data 

1520 

data 

1530 

data 

1540 

data 

1550 

data 

1560 

data 

1570 

data 

1580 

data 

1590 

data 

1600 

data 

1610 

data 

1620 

data 

1630 

data 

1640 

data 

1650 

data 

1660 

data 

1670 

data 

1680 

data 

1690 

data 

1700 

data 

1710 

data 

1720 

data 

1730 

data 

1740 

data 

1750 

data 

1760 

data 

1770 

data 

1780 

data 

1790 

data 

1800 

data 


V V f U O , U U f U X f 
00 , 00 , 00 , 00 , 
00, 04,FF,FF, 
00,00,00,01, 
00 , 00 , 00 , 00 , 
00, 06,FF,FF, 
00,06, 00,11, 
00 , 00 , 00 , 20 , 
00, 08,FF,FF, 
00 , 00 , 00 , 00 , 
00,51,00,00, 
00, 0C, 00, 0A, 
00, OF, 00, 07, 
00,51,00,00, 
00, 09,FF,FF, 
00, 0A, 00,00, 
00 , 00 , 00 , 20 , 
00, 0E,FF,FF, 
00 , 00 , 00 , 00 , 
00,51,00,00, 
00,12,00, 10, 
00, OF, 00, OA, 
00,51,00,00, 
00, 0F,FF,FF, 
00, OA, 00,00, 
00,00,00,20, 
00, 14,FF,FF, 
00 , 00 , 00 , 00 , 
00,51,00,00, 
00,18,00,16, 
00, OF, 00, OD, 
00,51,00,00, 
00, 15,FF,FF, 
00, OA, 00,00, 
00 , 00 , 00 , 20 , 
00, 18,FF,FF, 
00, OA, 00,00, 
00,51, 00,00, 
00, 1C,FF,FF, 
00,06, 00,06, 
00 , 00 , 00 , 20 , 
00, 1E,FF,FF, 
00,06, 00,09, 


00,18,00,03, 
00, 00, 00, DO, 
FF,FF,00, 15, 
00,18,06,00, 
00,00,01,08, 
FF , FF , 00 , 1A, 
00,18,00,01, 
31, FF, 11, El, 
FF , FF , 00 , 1A, 
00,06,00,01, 
00,00, 00, 6A, 
00, OB, 00, 14, 
00, OF, 00, 01, 
00,00,00, 6E, 
FF , FF , 00 , 1A, 
00,05,00,01, 
31, FF, 11, 61, 
FF , FF , 00 , 1A, 
00,06,00,01, 
00,00,00,78, 
00,11,00,14, 
00, OF, 00, 01, 
00,00, 00, 7C, 
FF , FF , 00 , 1A, 
00,05,00,01, 
31, FF ,11, 61, 
FF , FF , 00 , 1A, 
00,06,00,01, 
00, 00,00,86, 
00,17,00,14, 
00, OF, 00, 01, 
00, 00, 00, 8A, 
FF , FF , 00 , 1A, 
00,05,00,01, 
31, FF, 11, 61, 
FF , FF , 00, 1A, 
00,05,00,01, 
00,00,00,94, 
FF , FF ,00,16, 
00,08,00,01, 
00,00,01,40, 
FF,FF,00, 16, 
00,08,00,01, 


00, 03,FF,FF, 
00,07,00,00, 
00 , 00 , 00 , 00 , 
00, 01,FF,FF, 
00,09,00,02, 
00,07,00,00, 
00, 09, 00, 07, 
00, OF, 00,06, 
00,51,00,00, 
00, 06,FF,FF, 
00, OA, 00, 00, 
00 , 00 , 00 , 20 , 
00, 0B,FF,FF, 
00 , 00 , 00 , 00 , 
00,51,00,00, 
00, OF, 00, OD, 
00, OF, 00,09, 
00,51,00,00, 
00, 0C,FF,FF, 
00, OA, 00,00, 
00 , 00 , 00 , 20 , 
00, 11,FF,FF, 
00 , 00 , 00 , 00 , 
00,51,00,00, 
00,15,00,13, 
00, OF, 00, OB, 
00,51,00,00, 
00, 12,FF,FF, 
00, OA, 00, 00, 
00 , 00 , 00 , 20 , 
00, 17,FF,FF, 
00 , 00 , 00 , 00 , 
00,51,00,00, 
00, 1A, 00, 19, 
00, OF, 00, OE, 
00,51,00,00, 
00, IB, FF, FF, 
00, OF, 00, OE, 
00 , 00 , 00 , 20 , 
00, ID, FF, FF, 
00,06, 00,07, 
00 , 00 , 00 , 20 , 
00, 1F,FF,FF, 


FF,FF,00,15 
00, OB, 00, 01 
00, 00, 00, EC 
FF, FF, 00,15 
00,06,06,00 
00,00,00, 60 
00,08,00,14 
00, OF, 00, 01 
00,00,00, 67 
FF , FF ,00, 1A 
00,05,00,01 
31, FF, 11, 61 
FF , FF , 00 , 1A 
00,06,00,01 
00,00,00,71 
00, OE, 00, 14 
00, OF, 00, 01 
00,00,00,75 
FF, FF, 00, 1A 
00, 05, 00,01 
31, FF, 11, 61 
FF , FF, 00, 1A 
00,06,00,01 
00, 00, 00, 7F 
00,14, 00, 14 
00, OF, 00, 01 
00,00,00,83 
FF , FF, 00, 1A 
00,05,00,01 
31, FF, 11, 61 
FF, FF, 00, 1A 
00,06,00,01 
00, 00, 00, 8D 
00,19,00,14 
00, OF, 00, 01 
00,00,00,91 
FF , FF, 00, 1A 
00,06,00,01 
00,00,01,24 
FF , FF , 00,16 
00,08,00,01 
00, 00, 01, 5C 
FF , FF , 00, 16 
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1810 data 00, 00, 00,20, 00, 00, 01,78, 00, 06, 00, 0A, 00, 08, 00, 01 
1820 data 00, 20, FF, FF, FF, FF, 00, 16, 00, 00, 00 , 20, 00, 00 , 01, 94 
1830 data 00, 06, 00, OB, 00, 08, 00, 01, 00, 21, FF,FF, FF, FF, 00, 16 
1840 data 00, 00, 00, 20, 00, 00, 01, BO, 00, 06, 00, OD, 00, 08, 00, 01 
1850 data 00, 00, FF, FF, FF,FF, 00, 16, 00, 20, 00, 20, 00, 00, 01, CC 
1860 data 00, 06, 00, OE, 00, 08, 00, 01, 00, 00, 01, E8, 00, 00, 00, 00 
1870 data * 

1880 close 1 : if s<> 58576 then print"ERROR IN DATA!” : end 
1900 print "Ok." 
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1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 


open”R", 1, "c:fx80acc.acc",16 
field#l,16 as bin$ 

3$="”: for i=l TO 16: read d$:if d$= M *"then 1050 
a=va l ("&H"+d$) : s=s+a : a$=a$+chr$ (a) :next 
lset bin$=a$ : rec=rec+l :put l,rec:goto 1020 
data 60, 1A, 00, 00, 12, DC, 00, 00, 02, 36, 00, 00, 09, BA, 00, 00 
data 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 2E, 7C,00,00 
data 19, 16, 4E, B9, 00, 00, 00 , FA, 2E, BC, 00, 00 , 00, 00, 4E, 41 
data 22,2F,00,04,30,3C,00,C8,4E,42,4E,75,4E, 56, FF, FA 
data 42, 6E,FF,FE, 60, 14,30, 6E,FF,FE,D1,C8,D1,FC, 00,00 
data ID , AE ,30, BC , 00, 01, 52, 6E,FF,FE, 0C, 6E, 00, 0A, FF, FE 
data 6D, E4, 33, FC, 00, 02, 00, 00, ID, C2, 33, F9, 00, 00, IB, 70 
data 00, 00, IB, 6E, 2E, BC, 00 , 00, IE, 06, 2F, 3C, 00, 00, IB, 6E 
data 2F,3C,00,00, ID, AE, 4E,B9,00,00,0D,22,50,8F,4E,5E 
data 4E, 75, 4E, 56,FF,FC, 3E,B9, 00, 00, IB, 3A, 3F, 39, 00,00 
data ID, 80, 3F, 39, 00, 00, ID, A2,3F, 3 9, 00, 00, ID, A0, 42, 67 
data 4E,B9,00,00,11,B2,50,8F,33,C0,00,00, IE, BE, 3E, B9 
data 00,00, 1B,3A, 3F, 39, 00, 00, ID, 80, 3F, 39, 00, 00, ID, A2 
data 3F,39,00,00,1D,AO,3F,39,00,00,1E,BE,4E,B9,00,00 
data 11, EC, 50 , 8F, 2E, BC, 00,00,1B,72,2F,3C,00,00,1D,C4 
data 2F, 3C, 00, 00, 1D,C8,2F, 3C, 00, 00, 1D,C6, 3F, 3C, 00, 04 
data 3F, 39, 00, 00, IE, BE, 4E,B9, 00, 00, 12, 5A,DF,FC, 00,00 
data 00, 10, 4E,5E, 4E,75, 4E,56,FF,FC, 4E,B9, 00, 00, 0E, 22 
data 2E, BC, 00, 00, IB, 38, 2F, 3C, 00, 00, ID, 7E, 2F, 3C, 00, 00 
data 1E,78,2F,3C,00,00,1E,BC, 4E,B9,00, 00 , 10, 5C,DF, FC 
data 00, 00, 00, 0C, 33, CO, 00, 00, IB, 70, 2E,BC, 00,00,14, 90 
data 3F, 39, 00, 00, IE, 9 A, 4E,B9,00,00,10,9E,54,8F,33,CO 
data 0 0, 00, 1A, 32,2E,BC, 00, 00, IE, 98,2F,3C, 00, 00,1E,C2 
data 2F , 3C, 00 , 00 , IE, CA, 2F, 3C, 00, 00 , IE, C8 , 3F, 3C, 00,04 
data 42, 67, 4E,B9, 00, 00, 12, 5A,DF,FC, 00, 00, 00, 10, 2E,BC 
data 00, 00, 14, 9E, 4E,B9, 00, 00, 11, 64, 4A, 40, 66, 12,2E,BC 
data 00,00,14,A9,3F,3C,00,01,4E,B9,00,00,0F,F0,54,8F 
data 2E,BC, 00, 00, ID, AA, 42, 67, 42 , 67 , 4E, B9, 00, 00, 11, 7E 
data 58, 8F, 4A, 40, 66, 12,2E,BC, 00, 00, 14, E0, 3F,3C,00,01 
data 4E,B9, 00, 00 , OF, F0, 54, 8F, 2E, BC, 00 , 00, ID, AA, 42,67 
data 42, 67, 4E, B9, 00, 00, 11, 7E, 58, 8F, 2E, BC, 00, 00, IB, 3 A 
data 2F,3C,00,00,1D,80,2F,3C,00,00,1D,A2,2F,3C,00,00 
data ID, A0, 2F, 39, 00, 00, ID, AA, 4E,B9, 00, 00, 10, 12,DF,FC 
data 00,00,00,10,61,04,4E,5E,4E,75, 4E, 56,FF,FC, 60,00 
data 00 , BE, 2E, BC, 00, 00, IB, 74, 2F, 3C, 00, 00, IB, 74, 2F, 3C 
data 0 0, 00, IB, 7 4,2F,3C, 00, 00, IB, 7 4, 2F, 3C, 00,00, ID, 7A 
data 2F,3C, 00, 00, 1C,78, 42, 67, 42, 67, 2F, 3C, 00,00, IB, 5E 
data 42, 67, 42, 67, 42, 67, 42, 67, 42, 67, 42, 67, 42, 67, 42, 67 
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1430 

data 

1440 

data 

1450 

data 

1460 

data 

1470 

data 

1480 

data 

1490 

data 

1500 

data 

1510 

data 

1520 

data 

1530 

data 

1540 

data 

1550 

data 

1560 

data 

1570 

data 

1580 

data 

1590 

data 

1600 

data 

1610 

data 

1620 

data 

1630 

data 

1640 

data 

1650 

data 

1660 

data 

1670 

data 

1680 

data 

1690 

data 

1700 

data 

1710 

data 

1720 

data 

1730 

data 

1740 

data 

1750 

data 

1760 

data 

1770 

data 

1780 

data 

1790 

data 

1800 

data 

1810 

data 

1820 

data 

1830 

data 

1840 

data 

1850 

data 


42, 67, 42, 67, 3F,3C, 00,01,3F,3C, 00, 01, 3F, 3C, 00,01 
3F,3C,00,13,4E,B9,00,00,0E, 96, DF, FC, 00,00,00,38 
33, CO, 0 0,00, 1A, 34, 08,39,00, 04, 00, 00, 1A, 35, 67, 4E 

30. 39. 00. 00. 1B, 5E, 60, 40,30,39, 00, 00, IB, 66, BO, 7 9 
00, 00, 1A, 32, 66, 2E, 61,00,FD, 94, 61, 00,FD,E6, 61,36 
3E,B9, 00, 00, IE, BE, 4E, B9, 00 , 00 , 12, 2 6, 3E, B9, 00, 00 
IE, BE, 4E,B9, 00, 00, 12, 40,3E,B9, 00, 00, IB, 6E, 4E,B9 
00, 00, 0C,F8, 60, 08, 60, 06, BO, 7C, 00,28, 67, BA, 60, 00 
FF, 42, 4E,5E, 4E,75, 4E, 56, FF, FC, 2E, BC, 00, 00, ID, AA 
42,67,42, 67, 4E,B9, 00, 00, 11, 7E, 58, 8F,2E,BC, 00,00 
IB, 3 A, 2F, 3C, 00, 00, ID, 80, 2F, 3C, 00 , 00, ID, A2 , 2F, 3C 
00, 00, ID, AO, 2F, 39, 00, 00, ID, AA, 4E,B9, 00, 00, 10, 12 
DF,FC, 00, 00, 00, 10,3E,B9,00, 00, IB, 3A,3F, 39, 00, 00 
ID, 80, 3F, 39, 00, 00, ID, A2,3F, 39, 0 0, 00, ID, AO, 42, 67 
4E,B9,00,00,OF,96,50,8F,3E,B9,00,00,1B,3A,3F,39 
00, 00, ID, 80, 3F, 39, 00, 00, ID, A2 , 3F, 39, 00, 00, ID, AO 
3F,3C,00,01,3F,3C,00,01,3F,3C,00,01,3F,3C,00,01 
3F, 3C, 00, 01, 4E,B9, 00, 00, OF, 96,DF,FC, 00, 00, 00, 10 
3E,B9, 00, 00, IE, 98, 3F, 39, 00, 00, 1E,C2, 42, 67, 42, 67 
3F,3C, 00,22, 42, 67, 2F, 39, 00, 00, ID, AA, 4E,B9, 00,00 
10,C0,DF,FC, 00, 00, 00, OE, 42,79, 00, 00, IE, CO, 60,00 
09,54, 42,57, 2F, 39, 00,00, ID, AA, 4E,B9, 00, 00, OF, 7 4 
58, 8F, 33, CO, 00,00, ID, 7C, 30, 39, 00, 00, ID, 7C, 60, 00 
09, IE, 3E,BC, 00, 01, 3F, 3C, 00, 01, 3F, 39, 00, 00, IB, 3 A 
3F,39,00,00,1D,80,3F,39,00,00,1D,A2,3F,39,00,00 
1D,AO,42,67,3F,3C,00,07,2F,39,00,00, ID, AA, 4E,B9 
00, 00, 11, 0A,DF,FC, 00,00,00, 12, 3E,BC, 00, 01, 42, 67 
3F, 39, 00, 00, IB, 3A, 3F, 39, 00, 00, ID, 80, 3F, 39, 00, 00 
1D,A2,3F,39,00,00,1D,AO,42,67,3F,3C,00,08,2F,39 
00, 00, ID, AA, 4E,B9, 00, 00, 11, 0A,DF,FC, 00,00,00,12 
3E,BC, 00, IB, 3F , 3C, 00,05, 4E,B9, 00, 00, 12, CC, 54, 8F 
3E, BC, 00, 4D, 3F, 3C, 00,05,4E,B9, 00, 00, 12, CC, 54, 8F 

60. 00. 08, A2, 3E, BC, 00, 01, 3F, 3C, 00, 01, 3F, 39, 0 0, 00 
1B,72,3F,39,00,00,1D,C4,3F,39,00,00,1D,C8,3F,39 
00,00,1D,C6,42,67,3F,3C,00,08,2F,39,00,00,1D, AA 
4E,B9,00,00,11,0A,DF,FC,00,00,00,12,3E,BC,00,01 
42,67,3F,39,00,00,1B,72,3F,39,00,00,1D,C4,3F,39 
00,00,1D,C8,3F,39,00,00,1D,C6,42,67,3F,3C,00,07 
2F, 39, 00, 00, ID, AA, 4E,B9, 00, 00, 11, 0A,DF, FC, 00, 00 
00,12, 3E, BC, 00,1B,3F,3C,00,05,4E,B9,00,00, 12, CC 
54,8F,3E,BC,00,50,3F,3C,00,05,4E,B9,00,00, 12, CC 
54, 8F, 60, 00, 08, 10,3E,BC, 00, 01, 3F, 3C, 00, 01,3F,39 
00, 00, IB, 72, 3F, 39, 00,00, 1D,C4,3F, 39, 00, 00, 1D,C8 
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I860 

data 

1870 

data 

1880 

data 

1890 

data 

1900 

data 

1910 

data 

1920 

data 

1930 

data 

1940 

data 

1950 

data 

1960 

data 

1970 

data 

1980 

data 

1990 

data 

2000 

data 

2010 

data 

2020 

data 

2030 

data 

2040 

data 

2050 

data 

2060 

data 

2070 

data 

2080 

data 

2090 

data 

2100 

data 

2110 

data 

2120 

data 

2130 

data 

2140 

data 

2150 

data 

2160 

data 

2170 

data 

2180 

data 

2190 

data 

2200 

data 

2210 

data 

2220 

data 

2230 

data 

2240 

data 

2250 

data 

2260 

data 

2270 

data 

2280 

data 


3F, 39, 00, 00, 1D,C6, 42, 67, 3F, 3C, 00, 10, 2F, 39, 00,00 
1D,AA, 4E,B9, 00, 00,11, 0A,DF,FC, 00, 00, 00,12, 3E,BC 
0 0, 01, 42, 67, 3F, 39, 00, 00, IB, 72, 3F, 39, 00, 00, ID, C4 
3F,39,00,00,1D,C8,3F,39,00,00,1D,C6,42,67,3F,3C 

00, 11, 2F, 39, 00, 00, ID, AA, 4E,B9, 00, 00, 11, 0A, DF, FC 
00, 00, 00, 12, 3E, BC, 00,OF,3F,3C,00,05,4E,B9,00,00 
12, CC, 54, 8F, 60, 00, 07, 8E, 3E, BC, 00 , 01, 3F, 3C, 00, 01 
3F, 39, 00, 00, IB, 72, 3F, 39, 00, 00, ID, C4, 3F, 39, 00, 00 
ID, C8 , 3F, 39, 00, 00, ID, C6, 42 , 67 , 3F, 3C, 00, 11, 2F, 39 

00, 00, ID, AA, 4E,B9,00, 00, 11, 0A,DF,FC, 00,00,00, 12 

3E, BC, 0 0, 01, 42, 67, 3F, 39, 00, 0 0, IB, 72, 3F, 39, 00, 0 0 
1D,C4, 3F, 39, 00, 00, 1D,C8, 3F, 39, 00, 00, 1D,C6, 42, 67 
3F, 3C, 00, 10, 2F, 39, 00, 00, ID, AA, 4E, B9, 00, 00, 11, 0A 
DF , FC, 00,00,00,12,3E,BC,00,12,3F,3C,00,05,4E,B9 
00, 00, 12,CC,54, 8F, 60, 00,07, OC, 3E, BC, 00, 01, 3F, 3C 
00,01,3F,39,00,00,1B,72,3F,39,00,00,1D,C4,3F,39 
00,00,1D,C8,3F,39,00,00,1D,C6,42,67,3F,3C,00,0A 
2F, 39, 00, 00, ID, AA, 4E,B9, 00, 00, 11, 0A,DF,FC, 00,00 
00, 12 , 3E, BC, 00, 01, 42, 67 , 3F, 3 9, 00, 00, IB, 72, 3F, 3 9 
00,00,1D,C4,3F,39,00,00,1D,C8,3F,39,00,00,1D,C6 
42, 67,3F,3C,00,0B,2F,39,00,00, ID, AA, 4E,B9,00,00 
H,0A,DF, FC, 00,00,00,12,3E,BC,00,1B,3F,3C,00,05 
4E,B9,00,00, 12, CC, 54,8F,3E,BC,00,70,3F,3C,00,05 
4E,B9, 00, 00, 12,CC,54, 8F,3E,BC, 00, 01,3F,3C,00, 05 
4E,B9, 00, 00, 12, CC, 54, 8F, 60,00,06, 6A, 3E,BC, 00,01 
3F, 3C, 00, 01, 3F, 39, 00, 00, IB, 72, 3F, 3 9, 00, 00, ID, C4 
3F,39, 00, 00, 1D,C8,3F,39,00, 00, 1D,C6, 42, 67,3F,3C 
00, OB, 2F, 39, 00, 00, ID, AA, 4E, B9 , 00 , 00 , 11, OA, DF, FC 
00,00,00,12, 3E,BC, 00, 01, 42, 67, 3F, 39, 00, 00, IB, 72 
3F,39,00,00,1D,C4,3F,39,00,00,1D,C8,3F,39,00,00 
1D,C6,42,67,3F,3C,00,0A,2F,39,00,00, ID, AA, 4E,B9 
00, 00, 11,0 A, DF , FC, 00,00,00,12,3E,BC,00,1B,3F,3C 
00,05, 4E,B9,00,00,12,CC,54,8F,3E,BC,00,70,3F,3C 
00,05,4E,B9,00,00,12,CC,54,8F,42,57,3F,3C,00,05 
4E,B9,00,00, 12, CC, 54, 8F, 60, 00, 05, CA, 3E,BC, 00, 01 
3F,3C,00,01,3F,39,00,00,1B,72,3F,39,00,00,1D,C4 
3F,39, 00, 00, 1D,C8,3F, 39, 00, 00, 1D,C6, 42, 67, 3F, 3C 
00, 0D,2F, 39, 00, 00, ID, AA, 4E,B9, 00, 00, 11, OA, DF, FC 
00, 00, 0 0, 12, 3E,BC, 00, 01, 42, 67, 3F, 39, 00, 00, IB, 72 
3F,39,00,00,1D,C4,3F,39,00,00,1D,C8,3F,39,00,00 
1D,C6, 42, 67,3F,3C, 00, OE, 2F, 39, 00, 00, ID, AA, 4E,B9 
00, 00, 11, OA, DF , FC, 00, 00, 00, 12, 3E, BC, 00 , IB, 3F, 3C 
00, 05, 4E,B9, 00, 00, 12,CC,54, 8F,3E,BC, 00,34,3F, 3C 
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2290 

data 

2300 

data 

2310 

data 

2320 

data 

2330 

data 

2340 

data 

2350 

data 

2360 

data 

2370 

data 

2380 

data 

2390 

data 

2400 

data 

2410 

data 

2420 

data 

2430 

data 

2440 

data 

2450 

data 

2460 

data 

2470 

data 

2480 

data 

2490 

data 

2500 

data 

2510 

data 

2520 

data 

2530 

data 

2540 

data 

2550 

data 

2560 

data 

2570 

data 

2580 

data 

2590 

data 

2600 

data 

2610 

data 

2620 

data 

2630 

data 

2640 

data 

2650 

data 

2660 

data 

2670 

data 

2680 

data 

2690 

data 

2700 

data 

2710 

data 


00,05, 4E,B9, 
00,01, 3F, 3C, 
ID, C4, 3F, 39, 
3F, 3C, 00 , 0E, 
DF,FC, 00,00, 
IB, 72, 3F, 39, 
00, 00, ID, C6, 
4E,B9, 00, 00, 
3F, 3C, 00,05, 
3F, 3C, 00,05, 
3E,BC,00,01, 
00, 00, ID, C4, 
42, 67,3F,3C, 
11, 0A,DF,FC, 
00, 00, IB, 72, 
3F, 39, 00, 00, 
ID, AA, 4E,B9, 
00, IB, 3F, 3C, 
00, 53, 3F, 3C, 
3F, 3C, 00,05, 
3E,BC, 00,01, 
00,00, ID, C4 , 
42, 67 , 3F, 3C, 
11, 0A, DF, FC, 
00, 00, IB, 72, 
3F, 39,00,00, 
ID, AA, 4E,B9, 
00, IB, 3F, 3C, 
00, 54, 3F, 3C, 
03,74, 3E,BC, 
3F, 39, 00, 00, 
1D,C6, 42, 67, 
00,00,11, 0A, 
3F, 39, 00, 00, 
ID, C8 , 3F, 39, 
00,00, ID, AA, 
3E,BC, 00, IB, 
3E,BC, 00, 4E, 
3E,BC, 00,06, 

60, 00, 02, D2, 
IB, 72, 3F, 39, 
00, 00, ID, C6, 
4E,B9, 00, 00, 


00, 00, 12, CC, 
00, 01, 3F, 39, 
00, 00, ID, C8, 
2F, 39, 00, 00, 
00,12, 3E, BC, 
00, 00, ID, C4, 
42, 67 , 3F, 3C, 
11, 0A,DF,FC, 
4E, B9, 00,00, 
4E, B9, 00, 00, 
3F, 3C, 00,01, 
3F, 39, 00, 00, 
00, 13, 2F, 39, 
00 , 00 , 00 , 12 , 
3F, 39, 00, 00, 
ID, C6, 42, 67, 
00, 00, 11, 0A, 
00,05, 4E,B9, 
00,05, 4E,B9, 
4E, B9, 00,00, 
3F , 3C, 00,01, 
3F, 39, 00, 00, 
00, 14, 2F, 39, 
00 , 00 , 00 , 12 , 
3F, 39, 00, 00, 
ID, C6, 42, 67, 
00, 00, 11, OA, 
00, 05, 4E,B9, 
00,05, 4E,B9, 
00,01, 3F, 3C, 
ID, C4, 3F, 39, 
3F,3C, 00,16, 
DF , FC, 00,00, 
IB, 72, 3F, 39, 
00, 00, ID, C6, 
4E, B9, 00, 00, 
3F, 3C, 00, 05, 
3F, 3C, 00, 05, 
3F, 3C, 00, 05, 
3E, BC, 00,01, 
00, 00, 1D,C4, 
42,67, 3F, 3C, 
11, 0A,DF,FC, 


, 8F , 60,00, 
00, 00, IB, 72, 
3F, 39, 00, 00, 
ID, AA, 4E,B9, 
00, 01, 42,67, 
3F, 39, 00, 00, 
00, OD, 2F, 39, 
00 , 00 , 00 , 12 , 
12, CC, 54, 8F, 
12, CC, 54, 8F, 
3F, 39,00,00, 
1D,C8, 3F, 39, 
00, 00, ID, AA, 
3E, BC, 00,01, 
1D,C4, 3F, 39, 
3F , 3C, 00,14, 
DF, FC, 00,00, 
00, 00, 12, CC, 
00, 00, 12, CC, 
12, CC, 54, 8F, 
3F, 39, 00, 00, 
ID, C8 , 3F, 39, 
00, 00, ID, AA, 
3E, BC, 00,01, 
ID, C4, 3F, 39, 
3F,3C, 00,13, 
DF,FC, 00, 00, 
00,00, 12, CC, 
00, 00, 12, CC, 
00, 01, 3F, 39, 
00, 00, 1D,C8, 
2F, 39, 00, 00, 
00, 12, 3E, BC, 
00, 00, 1D,C4, 
42, 67, 3F, 3C, 
11, OA, DF, FC, 
4E,B9, 00,00, 
4E,B9, 00, 00, 
4E,B9, 00,00, 
3F, 3C, 00,01, 
3F, 39,00,00, 
00, 17, 2F, 39, 
00 , 00 , 00 , 12 , 


05, 38, 3E,BC 
3F, 39, 00, 00 
ID, C6, 42,67 
00, 00, 11, OA 
3F, 39, 00, 00 
ID, C8 , 3F, 39 
00, 00, ID, AA 
3E,BC, 00, IB 
3E, BC, 00,35 

60. 00. 04, A6 
IB, 72, 3F, 39 
00,00, ID, C6 
4E, B9, 00, 00 
42, 67, 3F, 39 
00, 00, ID, C8 
2F, 39, 00,00 
00, 12, 3E,BC 
54, 8F, 3E, BC 
54, 8F, 42, 57 

60.00. 04.06 
IB, 72, 3F, 39 
00, 00, ID, C6 
4E, B9, 00,00 
42, 67, 3F, 39 
00, 00, ID, C8 
2F, 39, 00, 00 
00, 12, 3E,BC 
54, 8F, 3E, BC 
54, 8F , 60,00 
00, 00, IB, 72 
3F, 39, 00, 00 
ID, AA, 4E,B9 
00, 01,42, 67 
3F, 39, 00, 00 
00, 17 , 2F, 39 
00 , 00 , 00,12 
12, CC, 54, 8F 
12, CC, 54, 8F 
12 , CC, 54, 8F 
3F, 39, 00,00 
1D,C8, 3F, 39 
00, 00, ID, AA 
3E, BC, 00, 01 
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2720 

data 

42, 67, 3F, 39, 00, 00, 

2730 

data 

00,00,1D,C8,3F,39, 

2740 

data 

2F, 39, 00, 00, 1D,AA, 

2750 

data 

00,12, 3E, BC, 00, IB, 

2760 

data 

54, 8F, 3E, BC, 00, 4F, 

2770 

data 

54, 8F, 60, 00, 02, 40, 

2780 

data 

00, 00, IB, 72, 3F, 39, 

2790 

data 

3F,39,00,00,1D,C6, 

2800 

data 

ID, AA, 4E,B9,00,00, 

2810 

data 

00, 01, 42, 67, 3F, 39, 

2820 

data 

3F, 39, 00, 00, 1D,C8, 

2830 

data 

00, 19, 2F, 39, 00, 00, 

2840 

data 

00, 00, 00, 12,3E,BC, 

2850 

data 

12, CC, 54, 8F, 3E, BC, 

2860 

data 

12, CC, 54, 8F, 42, 57, 

2870 

data 

54, 8F , 60, 00, 01, AO, 

2880 

data 

00, 00, IB, 72, 3F, 39, 

2890 

data 

3F , 39, 00, 00, 1D,C6, 

2900 

data 

ID, AA, 4E,B9,00,00, 

2910 

data 

00, 01, 42, 67, 3F, 39, 

2920 

data 

3F,39,00,00,1D,C8, 

2930 

data 

00, 1A, 2F, 39, 00, 00, 

2940 

data 

00, 00, 00, 12, 3E,BC, 

2950 

data 

12, CC, 54, 8F, 3E,BC, 

2960 

data 

12 , CC, 54 , 8F, 3E, BC, 

2970 

data 

12, CC, 54, 8F, 60, 00, 

2980 

data 

3F, 39, 00, 00, IB, 72, 

2990 

data 

1D,C8,3F,39,00,00, 

3000 

data 

00, 00, ID, AA, 4E,B9, 

3010 

data 

3E,BC,00,0D,3F,3C, 

3020 

data 

3E,B9, 00, 00, IB, 3A, 

3030 

data 

1D,A2,3F,39,00,00, 

3040 

data 

0F,96,50,8F,3E,B9, 

3050 

data 

3F,39,00,00,1D,A2, 

3060 

data 

3F, 3C, 00, 01, 3F, 3C, 

3070 

data 

4E,B9,00,00,0F,96, 

3080 

data 

00, 00, IE, CO, 3E,BC, 

3090 

data 

3F,39,00,00,1D,C4, 

3100 

data 

1D,C6,42,67,3F,3C, 

3110 

data 

00,00, 11, 0A,DF,FC, 

3120 

data 

B0,7C,00,15,62,0E, 

3130 

data 

20, 50, 4E,D0, 0C, 79, 

3140 

data 

4E,5E,4E,75,4E,56, 


1B,72,3F,39,00,00,1D,C4,3F,39 
00,00, ID, C6, 42, 67 , 3F, 3C, 00,16 
4E,B9, 00, 00, 11, 0A,DF,FC, 00,00 
3F,3C,00,05,4E,B9,00,00, 12, CC 
3F,3C,00,05,4E,B9,00,00,12,CC 
3E,BC,00,01,3F,3C,00,01,3F,39 
00,00,1D,C4,3F,39,00,00,1D,C8 
42, 67, 3F,3C, 00, 1A, 2F, 39, 00, 00 
11, 0 A, DF ,FC,00,00,00,12,3E,BC 
00, 00, IB, 72, 3F, 39, 00, 00, ID, C4 
3F,39,00,00,1D,C6,42,67,3F,3C 
ID, AA, 4E,B9, 00, 00, 11, 0A,DF,FC 
00,1B,3F,3C,00,05,4E,B9,00,00 
00,6C,3F,3C,00,05,4E,B9,00,00 
3F,3C,00,05,4E,B9,00,00,12,CC 
3E, BC, 00, 01, 3F, 3C, 00, 01, 3F, 39 
00,00,1D,C4,3F,39,00,00,1D,C8 
42, 67,3F,3C, 00, 19,2F,39, 00, 00 
11, 0A,DF,FC, 00, 00, 00, 12,3E,BC 
00, 00, IB, 72, 3F, 3 9, 00, 00, ID, C4 
3F, 39, 00, 00, 1D,C6, 42, 67, 3F, 3C 
ID, AA, 4E,B9, 00, 00, 11, 0A,DF,FC 
00, IB, 3F, 3C, 00, 05, 4E,B9, 00,00 
00, 6C,3F, 3C, 00, 05, 4E,B9,00, 00 
00, 0A, 3F , 3C, 00, 05, 4E,B9, 00, 00 
00, FE, 3E, BC, 00, 01, 3F, 3C, 00, 01 
3F,39,00,00,1D,C4,3F,39,00,00 
ID, C6 , 42 , 67,3F,3C,00,05,2F,39 
00, 00, 11, 0A,DF,FC, 00, 00, 00, 12 
00,05,4E,B9,00,00, 12, CC, 54, 8 F 
3F, 39, 00, 00, ID, 80, 3F, 39, 00, 00 
1D,A0,3F,3C,00,02,4E,B9,00,00 
00, 00, IB, 3A,3F, 39, 00, 00, ID, 80 
3F,39,00,00,1D,A0,3F,3C,G0,01 
00,01,3F,3C,00,01,3F,3C,00,03 
DF,FC, 00, 00, 00, 10, 33, FC, 00,01 
00,01,42, 67, 3F, 39, 00, 00, IB, 72 
3F, 39, 00, 00, 1D,C8,3F,39, 00, 00 
00,05,2F,39,00,00, ID, AA, 4E,B9 
00, 00, 0 0, 12, 60, 18, 60,16, 5B, 40 
E5, 40,30, 40, D1,FC, 00,00, 14, 38 
00, 01, 00, 00, IE, CO, 66,00, F6,A4 
FF , FC, 33, FC, 00, 65, 00,00, IE, 9C 
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3150 data 42 , 7 9, 00 , 00 , IE, 9E, 42, 79, 00, 00 , IE, A2 , 33, EE, 00, 08 
3160 data 00, 00, IE, A8, 4E, B9, 00, 00, 0D, A2, 4E, 5E, 4E, 75, 4E, 56 
3170 data FF, FC, 23, EE, 00 , 08 , 00, 00, 19, IE, 23, EE, 00 , 10, 00 , 00 
3180 data 19, 26, 20, 2E, 00, 10, DO, BC, 00, 00, 00, 5A, 23, CO, 00, 00 
3190 data 19, 2A, 33, FC, 00, 64, 00, 00, IE, 9C, 42, 79, 00, 00, IE, 9E 
3200 data 33, FC, 00, OB, 00, 00, IE, A2, 20, 6E, 00, 0C, 33, DO, 00, 00 
3210 data IE, A8, 4E, B9, 00, 00, OD, A2, 20, 6E, 00, OC, 30, B9, 00, 00 
3220 data IE, A8 , 23, FC, 00 , 00 , 19, 32, 00, 00 , 19, IE, 23, FC, 00 , 00 
3230 data 1A, 38, 00, 00, 19, 26, 23, FC, 00, 00, 1C, 7A, 00, 00, 19, 2A 
3240 data 23, FC, 00 , 00 , IB, 78 , 00, 00, 19, 22 , 4E, 5E, 4E, 75, 23, FC 
3250 data 00, 00, IE, 9C, 00 , 00 , 19, 1A, 22, 3C, 00 , 00, 19, 1A, 70, 73 
3260 data 4E, 42, 4E, 75, 4E, 56,FF,F6, 33, EE, 00, 08, 00, 00, 1D,CE 
3270 data 30, 2E, 00 , 08 , DO , 7C, FF, F6, Cl, FC, 00 , 03, 48 , CO , DO, BC 
3280 data 00, 00, 12, DC, 2D, 40, FF, FA, 3D, 7C, 00, 01, FF, FE, 60, IE 
3290 data 20 , 6E, FF, FA, 10 , 10 , 48, 80, 32, 6E, FF, FE, D3, C9, D3, FC 
3300 data 00, 00, 1D,CE, 32, 80, 52, AE,FF,FA, 52, 6E,FF,FE, OC, 6E 
3310 data 00 , 04, FF, FE, 6D, DA, 2E, B9, 00, 00 , IE, 92 , 4E, B9, 00, 00 
3320 data 00, 14, 42, 40, 30, 39, 00, 00, 1D,F6, 4E, 5E, 4E, 75, 4E, 56 
3330 data FF,FA, 23, FC, 00, 00, 1D,CE, 00, 00, IB, 3E, 23, FC, 00, 00 
3340 data ID, 82, 00, 00, IB, 42, 23, FC, 00, 00, ID, D6, 00, 00, IB, 46 
3350 data 23, FC, 00, 00, ID, F6, 00, 00, IB, 4A, 23, FC, 00, 00, 1E,B4 
3360 data 00 , 00 , IB, 4E, 23, FC, 00, 00, IE, C4, 00 , 00 , IB, 52 , 23, FC 
3370 data 00 , 00 , IB, 3E, 00 , 00 , IE, 92, 3E, BC, 00 , OA, 61, 00 , FF, 46 
3380 data 33, F9, 00, 00, 1D,F6, 00, 00, IE, 9A, 70, 01, 4E, 5E, 4E, 75 
3390 data 4E, 56, FF, FC, 3E, BC, 00, 13, 61, 00 , FF, 2A, 70, 01, 4E, 5E 
3400 data 4E, 75, 4E, 56, FF, FC, 33, EE, 00, 08, 00, 00, ID, D6, 33, EE 
3410 data 00, OA, 00, 00, ID, D8, 33, EE, 00, OC, 00, 00, ID, DA, 33, EE 
3420 data 00, OE, 00, 00, ID, DC, 33, EE, 00, 10, 00, 00, ID, DE, 33, EE 
3430 data 00, 12, 00 , 00 , ID, EO , 33, EE, 00, 14, 00 , 00, ID, E2 , 33, EE 
3440 data 00, 16, 00, 00, ID, E4, 33, EE, 00, 18, 00, 00, ID, E6, 33, EE 
3450 data 00, 1A, 00 , 00 , ID, E8 , 33, EE, 00, 1C, 00 , 00, ID, EA, 33, EE 
3460 data 00 , IE, 00 , 00 , ID, EC, 33, EE, 00, 20 , 00 , 00 , ID, EE, 33, EE 
3470 data 00 , 22 , 00 , 00 , ID, FO, 23, EE, 00, 24, 00 , 00 , IE, B4, 33, EE 
3480 data 00, 28, 00, 00 , ID, F2 , 33, EE, 00 , 2A, 00 , 00 , ID, F4, 3E, BC 
3490 data 00, 19, 4E, B9, 00, 00, 0D,B8, 20, 6E, 00, 2C, 30, B9, 00, 00 
3500 data ID, F8, 20, 6E, 00, 30, 30, B9, 00, 00, ID, FA, 20, 6E, 00, 34 
3510 data 30, B9, 00, 00, 1D,FC,20, 6E, 00, 38, 30, B9, 00, 00, 1D,FE 
3520 data 20, 6E, 00, 3C, 30, B9, 00, 00, IE, 00, 20, 6E, 00, 40, 30, B9 
3530 data 00, 00, IE, 02, 42, 40, 30, 39, 00, 00, ID, F6, 4E, 5E, 4E, 75 
3540 data 4E, 56,FF,FC,23,EE, 00, 08, 00, 00, 1E,B4, 33, EE, 00, OC 
3550 data 00 , 00 , ID, D6, 3E, BC, 00, 32 , 4E, B9, 00 , 00, OD, B8 , 4E, 5E 
3560 data 4E, 75, 4E, 56, FF, FC, 33, EE, 00, 08, 00, 00, ID, D6, 33, EE 
3570 data 00, OA, 00, 00, ID, D8, 33, EE, 00, OC, 00, 00, ID, DA, 33, EE 
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3580 

data 

3590 

data 

3600 

data 

3610 

data 

3620 

data 

3630 

data 

3640 

data 

3650 

data 

3660 

data 

3670 

data 

3680 

data 

3690 

data 

3700 

data 

3710 

data 

3720 

data 

3730 

data 

3740 

data 

3750 

data 

3760 

data 

3770 

data 

3780 

data 

3790 

data 

3800 

data 

3810 

data 

3820 

data 

3830 

data 

3840 

data 

3850 

data 

3860 

data 

3870 

data 

3880 

data 

3890 

data 

3900 

data 

3910 

data 

3920 

data 

3930 

data 

3940 

data 

3950 

data 

3960 

data 

3970 

data 

3980 

data 

3990 

data 

4000 

data 


00, OE, 00, 00, ID, DC, 33, EE, 00, 10, 00, 00, 1D,DE, 33, EE 
00, 12, 00, 00, ID, EO, 33, EE, 00, 14, 00, 00, ID, E2, 33, EE 
00,16,00,00,1D,E4,33,EE,00,18,00,00,1D,E6, 3E,BC 
00, 33, 4E,B9,00, 00, 0D,B8, 4E,5E, 4E, 75, 4E, 56, FF, FC 
33, EE, 00, 08, 00,00, ID, D6, 23, EE, 00, 0A, 00, 00, IE, B4 
3E,BC,00,34,4E,B9,00,00,0D,B8,4E,5E,4E,75,4E,56 

FF , FC , 23, EE, 00, 08, 00, 00, IE, B4, 3E, BC, 00,36,4E,B9 
00, 00, OD, B8, 20, 6E, 00, OC, 30 , B9, 00 , 00, ID, F8, 20 , 6E 
00, 10,30, B9, 00, 00, ID, FA, 20, 6E, 00, 14,30, B9, 00, 00 

ID, FC, 20, 6E, 00, 18, 30 , B9, 00, 00, ID, FE, 42, 40, 30, 39 
00,00,1D,F6,4E, 5E, 4E,75,4E,56, FF, FC, 3E, BC, 00 , 4D 

4E,B9,00,00,OD,B8,20,6E,00,08,30,B9,00,00,1D,F8 
20, 6E, 00, OC, 30, B9, 00, 00, ID, FA, 20, 6E, 00, 10,30,B9 
00, 00, 1D,FC,20, 6E, 00, 14, 30, B9, 00, 00, ID, FE, 42,40 
30,39,00,00, ID, F6, 4E, 5E, 4E,75, 4E, 56,FF,FC, 33, EE 
00, 08, 00, 00, ID, D6, 23, EE, 00, OA, 00, 00, 1E,B4, 3E,BC 
00,23, 4E,B9, 00,00, 0D,B8, 4E,5E, 4E, 75, 4E, 56, FF,FC 
23, EE, 00, 08, 00,00, IE, B4, 33, EE, 00, OC, 00,00, ID, D6 
33, EE, 0 0, OE, 00, 00, ID, D8, 33, EE, 00, 10, 00, 00, ID, DA 
33, EE, 0 0,12, 00, 00, ID, DC, 33, EE, 00, 14, 00, 00, ID, DE 
33, EE, 00, 16, 00, 00, ID, EO, 3E, BC, 00 , 2 A, 4E,B9,00,00 
0D,B8, 4E, 5E, 4E,75, 4E, 56, FF, FC, 23, EE, 00, 08, 00, 00 

IE, B4, 33, EE, 00 , OC, 0 0 , 00 , ID, D6 , 33 , EE, 00, OE, 00,00 
ID, D8, 33, EE, 00, 10, 00, 00, ID, DA, 33, EE, 00,12,00,00 
ID, DC, 33, EE, 00, 14, 0 0, 00, ID, DE, 33, EE, 00, 16, 00, 00 
ID, EO, 33, EE, 00, 18, 00, 00, ID, E2, 33, EE, 00, 1A, 00,00 

ID, E4 , 3E, BC, 00, 2F, 4E,B9, 00, 00, 0D,B8, 4E, 5E, 4E, 75 
4E, 56, FF , FC, 23, EE, 00,08,00,00, 1E,B4, 3E,BC, 00, 6E 
4E,B9,00,00,0D,B8,4E,5E,4E,75,4E,56,FF,FC,33,EE 
00,08,00,00,1D,D6,33,EE,00,0A,00,00,1D,D8,3E,BC 
00,70,4E,B9,00,00,OD,B8,20,6E,00,OC,20,B9,00,00 

IE, C4,42,40,30,39,00,00,1D,F6,4E,5E,4E,75,4E,56 
FF, FC, 33, EE, 00, 08,00, 0 0, ID, D6, 33, EE, 00, OA, 00, 00 
ID, D8, 33, EE, 00, OC, 00, 00, ID, DA, 33, EE, 00, OE, 00,00 
ID, DC, 33, EE, 00, 10, 00, 00, ID, DE, 3E,BC, 00,64, 4E,B9 
00, 00, 0D,B8, 4E, 5E, 4E, 75, 4E, 56, FF,FC, 33, EE, 00,08 
00, 00, ID, D6, 33, EE, 00, 0 A, 00, 00, ID, D8, 33, EE, 00, OC 
00,00, ID, DA, 33, EE, 00, OE, 00, 00, ID, DC, 33, EE, 00, 10 
00, 0 0, ID, DE, 3E,BC, 00, 65, 4E, B9, 00, 00, 0D,B8, 4E, 5E 
4E, 75, 4E, 56, FF , FC, 33 , EE, 0 0 , 08 , 0 0 , 00 , ID, D6, 3E, BC 

00, 66, 4E,B9, 00, 00, 0D,B8, 4E, 5E, 4E,75, 4E,56,FF,FC 
33, EE, 00, 08, 00, 00, 1D,D6, 3E,BC, 00, 67, 4E,B9, 00,00 
0D,B8, 4E, 5E,4E,75, 4E, 56, FF, FC, 33, EE, 00, 08, 00, 00 
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4010 data ID, D6, 33, EE, 00 , 0A, 00, 00, ID, D8, 3E, BC, 00 , 68 , 4E, B9 
4020 data 00 , 00 , 0D, B8 , 20 , 6E, 00, OC, 30, B9, 00 , 00, ID, F8 , 20, 6E 
4030 data 00, 10, 30, B9, 00, 00, 1D,FA,20, 6E, 00, 14, 30, B9, 00, 00 
4040 data ID, FC, 20, 6E, 00, 18, 30, B9, 00, 00, ID, FE, 42, 40, 30, 39 
4050 data 00, 00, ID, F6, 4E, 5E, 4E, 75, 23, DF, 00, 00 , 19, 2E, 4E, 4E 
4060 data 2F, 39, 00, 00 , 19, 2E, 4E, 75, 23, DF, 00, 00, 19, 2E, 4E, 4D 
4070 data 2F, 39, 00, 00, 19, 2E, 4E, 75, 23, DF, 00 , 00, 19, 2E, 4E, 41 
4080 data 2F, 39, 00, 00, 19, 2E, 4E, 75, 00, 01, 00, 02, 01, 01, 02, 01 
4090 data 01,00,01,01,02,01,01,01,01,01,00,00,00,00,00,00 
4100 data 00,00,00,00,01,00,00,01,00,03,05,00,05,05,00,00 
4110 data 01,01,02,01,00,10,07,01,02,01,00,00,00,00,00,00 
4120 data 00,00,00,00,01,01,01,02,01,01,02,01,01,02,01,01 
4130 data 01,01,02,01,01,01,00,00,00,00,00,00,00,00,00,00 
4140 data 00,00,02,01,01,01,01,01,06,01,01,04,01,01,01,03 
4150 data 01,02,01,01,04,02,01,08,01,01,00,00,00,00,00,00 
4160 data 01,01,01,09,01,01,01,01,01,01,01,00,00,05,01,00 
4170 data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
4180 data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
4190 data 00,00,00,00,00,00,00,00,00,00,00,00,04,03,00,08 
4200 data 03,00,06,01,00,08,01,00,08,01,00,04,01,01,03,01 
4210 data 01,00,05,00,01,01,01,00,05,00,00,01,01,00,01,01 
4220 data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
4230 data 00,00,00,00,00,00,00,00,00,02,02,00,00,00,00,00 
4240 data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 
4250 data 00,00,00,00,00,00,05,01,00,05,01,00,01,01,00,01 
4260 data 01,00,02,05,00,06,01,00,02,01,00,01,01,00,06,05 
4270 data 00,00,00,00,00,01,01,00,01,00,02,01,00,02,01,01 
4280 data 01,01,01,00,00,00,00,00,00,00,00,00,00,00,00,00 
4290 data 00,00,00,01,02,03,01,02,01,01,01,01,01,01,00,01 
4300 data 01, 00, 01, 02, 00, 00, OB, EC, 00,00, 0C,E8, 00,00, 03, B6 
4310 data 00, 00, 04, 48, 00, 00, 0C,E8, 00, 00, 05, DE, 00, 00, 06, 80 
4320 data 00 , 00 , 0C, E8 , 00 , 00 , 07, 20, 00, 00 , 07 , B2 , 00 , 00 , 0C, E8 
4330 data 00, 00, 04, DA, 00, 00, 05, 5C, 00, 00, 0C,E8, 00, 00, 08, 44 
4340 data 00, 00, 08, E4, 00, 00, 0C,E8, 00, 00, 09, 76, 00, 00, 0A, 18 
4350 data 00 , 00 , 0C, E8 , 00, 00, 0B, 4A, 00, 00 , 0A, AA, 20 , 20 , 4 6, 58 
4360 data 2D, 38, 30, 2B, 20, 49, 4E, 49, 54, 00, 50, 52, 49, 4E, 49, 54 
4370 data 2E, 52, 53, 43, 00, 5B, 33, 5D, 5B, 42, 61, 64, 20, 63, 6F, 70 
4380 data 79, 3F, 20, 7C, 50, 52, 49, 4E, 49, 54, 2E, 52, 53, 43, 7C, 20 
4390 data 63, 6F, 75, 6C, 64, 6E, 27, 74, 20, 62, 65,20, 66, 6F,75, 6E 
4400 data 64, 21, 5D, 5B, 43, 61, 6E, 63, 65, 6C, 5D, 00, 5B, 33, 5D, 20 
4410 data 5B, 46, 61, 74, 61, 6C, 20, 65,72, 72, 6F, 72, 21,21, 7C, 52 
4420 data 65, 73, 6F, 75, 72, 63, 65,20, 46, 69, 6C, 65, 20, 6E, 6F, 74 
4430 data 20, 4F, 4B,2E, 5D, 5B, 43, 61, 6E, 63, 65, 6C,5D, 00, 00,00 
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4440 

data 

4450 

data 

4460 

data 

4470 

data 

4480 

data 

4490 

data 

4500 

data 

4510 

data 

4520 

data 

4530 

data 

4540 

data 

4550 

data 

4560 

data 

4570 

data 

4580 

data 

4590 

data 

4600 

data 

4610 

data 

4620 

data 

4630 

data 

4640 

data 

4650 

data 

4660 

data 

4670 

data 

4680 

data 

4690 

data 

4700 

data 

4710 

data 

4720 

data 

4730 

data 

4740 

data 

4750 

data 

4760 

data 

4770 

data 

4780 

close 

4800 

print 


00,02, 06, 2A, 18,06,04,06,06,06,06,10,06,06,06,08 
08, 06, 06, 06, 06, 06, 06, 08, 06, 06, 06, 0A, 06, 14, 06, 06 

06.06.06.00. 06. 06. 06. 08. 06. 06. 06. 06. 0C, OC, 06, OA 
OA, 08, OA,OC,OA, 08,0 A, 08,06,06,06,06,06, 1A, 06,06 
06, 06, 06, 0A,2A, 00,08,08, 08, 06, 12, 06, 06, 06, 06, 06 
1C, OA, 08, 06, 06, 06, 06, 06, 00,06,06, 06,08,08,06,06 
0 6, 1A, 00,06,10,06,00,00,06,08,06,12,06,06,06,00 

06. 12. 06. 06. 06. 00. 06. 14.10.14.06.06.06. 00.06. 12 
06, 06, 06, OC, 06, 14, 10, 14, 06, 06, 06, 00,06, 12, 06, 06 

06.00. 06.14.14.06.06.06.00.06.12.06.06.06.00.06 

14.14.06.06.06. 00. 06. 12. 06. 06. 06. 0C, 06, 14, 10, 10 
14, 06, 06, 06, OC, 06, 12, 06, 06, 06, OC, 06, 14, 10, OE, 14 

06. 06. 06. 00. 06. 12. 06. 06. 06. 00.06. 14. 10. 14. 06. 06 

06.00. 06.12.06.06.06.00.06.14.10.14.06.06.06.00 
0 6, 12, 0 6, 0 6, 06, OC, 0 6, 14, 10, OE, 14, 06, 06, 06, 00,0 6 

12. 06, 06, 06, OC, 06, 14, 10, 14, 0 6, 0 6, 06, OC, 06, 12, 0 6 

06.06. 00. 06. 14. 10. 10. 14. 06. 06. 06. 00.06. 12. 06. 06 
0 6, OC, 06, 14,10, 14, 0 6, 0 6, 0 6,00, 0 6, 12, 0 6,06, 0 6, OC 
06, 14, 10, OE, 14, 06, 06, 06, 00,06, 12, 06, 06, 06, 00,06 

14. 10. 10. 14. 06. 06, 0 6, OC, 06, 14, 08, 0 6, 06, 0 6, OA, 0 8 
06, 06, 06, 1A, OE, OC, 06, 06, 06, OC, 06, 1C, OC, 14, 06, 06 
08, 06, 10, 08, 10, 08, 06, 08, OA, 06, OA, 06, 04, 06, 04, 06 
04, 06, 04,0 A, 04, 06, 12, 14, 20, 18, 06, 08, OE, 04, 06,04 
06, 04, 06, 04, 06, 04, 06, 04, 06, 04, OE, 04, 24, 08, 08, 08 

08, 08, 08, 08, 08, 08, 08, 08, 08, 08, 08, 08, 08, OA, OA, OA 
OA, OA, OA, OA, 08, 10,08, OA, 10,08,08,08,08,08,08,08 
08, OA, 10, 08, OA, 10, OA, OA, OA, OA, OA, 08,12, OA, OA, OA 
OA, 08, 10, 08, OA, 10, 08, 08, 08, 08, 08, 08, OA, 10,08,08 
08, 08, 08, 08, 08, 08,0 A, 10, OA, 10, 08, OA, OA, 08, 10, 0 8 
08, 08, 08, OA, 10, 08, 08, 08, 08, 0 A, 10, OA, 10, OA, 10,08 
OA, OA, OA, OA, OA, 08, OA, 08, 08, 08, 08, 08, 01, 64, 04, 04 
04, 04, 04, 04, 04, 04, 04, 04, 04, 04, 04, 04, 04, 04, 04, 04 

04.04.04.00. 00.00.00.00.00.00.00.00.00.00.00.00 

•k 

1 : if s<> 340260 then print "ERROR IN DATA!" :end 
"Ok." 
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Plate 

Plate 

Plate 

Plate 

Plate 

Plate 

Plate 

Plate 

Plate 

Plate 


^ Color Plates 


1 Actual screen photograph 

2 Epson JX-80 color hardcopy of Plate 1 

3 Actual screen photograph 

4 Epson JX-80 color hardcopy of Plate 3 

5 Actual screen photograph 

6 Epson HI-80 plotter hardcopy of Plate 5 

7 Epson JX-80 color hardcopy of Plate 5 

8 Epson HI-80 plotter hardcopy 

9 Actual screen photograph 

10 Epson JX-80 color hardcopy of Plate 9 
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Plate 1 Actual screen photograph 
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Plate 2 Epson JX-80 color hardcopy of Plate 1 
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Plate 3 Actual screen photograph 
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Plate 4 Epson JX-80 color hardcopy of Plate 3 


1 

IIH 

:s:: 

HI! 

: r. : z 

HI! 

fill 
: = - : 

iiii 


list 

Hi! 

IIII 
:::: 
: : : : 
§sii 




# # 

000 0 


0 00 



00 0 


0 00 


0 0 0 0 




0 


00 0 


0 


0 

0 


0 
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Plate 5 Actual screen photograph 
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Plate 6 Epson HI-80 plotter hardcopy of Plate 5 
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Plate 7 Epson JX-80 color hardcopy of Plate 5 
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Plate 8 Epson HI-80 plotter hardcopy 
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Plate 9 Actual screen photograph 
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Plate 10 Epson JX-80 color hardcopy of Plate 9 
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Appendix A 


^following program creates a table of the Atari ST character set. To use 
the table, choose the character you want to display. For example, let's use 
he copyright symbol (©). In the table, find the row (B) and column (d) in 
which it appears. This yeilds a hexadecimal nymber ($bd). To display it 
we^use the CHR$ function, so to print the copyright symbol to the screen 

print chr $ ( &hBD ) 

The &h tells the computer this is a hexadecimal number. 

Perhaps you might want to printout a formula such as: x 2 y + xv 3 = 0 

are FT)°a ! H h 00 ^ Up i he Values f° r the superscripted 2 and 3. These 

are FD and FE. To display these, type the following: 

print "x ?, chr$ ( &hFD) M y + xy "chr$ ( &hFE) ff = 0" 
keyboa^d^ y ° U *** diSplay characters not easil y accessible from the 


BASIC program to create a character set table for the ST 

1000 fullw 2:clearw 2 

1010 print" " ; : for j%=0 to 15 'create column #s 
1020 print hex$(j%)" 

1030 next j% 

1040 print : print" ";:for j%=l to 32 

1050 print chr$(&h2d); '2d is chr code for dash 
1060 next j% 

1070 print 

1080 for i%=0 to 15 

1090 print - "hex$ (i%) chr$ (&h7c) " '7c code for vert bar 

1100 for j%=0 to 15 

1110 c% = i% * 16 + j% 'calculate char number 

1120 if c%=7 or c%=10 or c%=13 then print" :goto 1140 
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1130 print chr$(c%)” 

1140 next j%:print 
1150 next i% 

1160 print "07=Bell 0A=LF 0D=CR" 'remove on color monitor 
1170 poke 1262,0 'hardcopy to printer 
1180 end 


ST character set table 



B 

1 2 

S 

4 

5 

6 

7 

8 9 

A 

8 

C 

D 

E F 

B! 


A e 

0 


9 

E 


G 


«r 

F 

F 



ii 

n 

u 

! £ 

3 X S S 

n 

i 

8 8 

3 

E 

5 

c 

sri 

x * 

21 


i ii 

tt 

$ 

Y, 

& 

i 

C ) 

* 

+ 

> 

- 

, / 

SI 

B 

i 2 

T 

4 

5 

6 

** 

8 9 

I 

l 

i 

; 

< 

* 

> ? 

41 

e 

A 0 

c 

D 

E 

F 

0 

H I 

3 

• 

a 

K 

L h 

H 0 

51 

p 

0 R 

s 

I 

y 

V W 

X V 

T 

L 

E 

\ 

] 

A 

61 

s 

a b 

c 

d 

G 

f 

9 

h i 

j 

k 

1 

n 

n o 

71 

p 

q r 

s 

t 

u 

V 

w 

x y 

z 

■t 

i > 

" A 

8! 

5 

u e 

A 

a 

a 

a 

-o- 

a 

& 

A « ■ 

G G 

V 

e 

i' 

A 

1 

i 

A 8 

9! 

t 

^ St 

A 

0 

b 

•H. 

0 

A 

y 

X. 

u 

-- " 
y o 

ii 

t 


V 

8 f 

fli 

a 

i 6 

u 

a* 

n 

V 

H 

a 

0 

L r 

T 

\ 

* 

i 


8! 

fV 

3 

o 0 

jB 

s 

£ 

p. 

ft* 

B 

2 a 

0 


t 

1 

e 

8 w 

Cl 

ii 11 * 

2 

a 

T 

n 

1 

? n 

0 


3 

7 

a i 

SI 

0 

U 0 

2 

P 

1 

y 

11 

l 1 

Q 

9 

9 
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A « 

El 

cc 

b r 

JIM* 

ii 

T 

L 

<5 

M 


g 9 

G 

5 

fi 

fh 

S' 

e n 

FI 

- 

i > 

< 

a 

| 

i 

.J 

T 

W 

O • 

♦ 


ft 

2 

3 “ 


87=8ell Ofi=LF BD=CR 
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Appendix B 


The following is a list of the commands available in ST BASIC. 


ABS 

ALL 

AND 

AS 

ASC 

ATN 

AUTO 

BASE 

BLOAD 

BREAK 

BSAVE 

CALL 

CBDL 

CHAIN 

CHR$ 

CINT 

CIRCLE 

CLEAR 

CLEARW 

CLOSE 

CLOSEW 

COLOR 

COMMON 

CONT 

CONTROL 

COS 

CSNG 

CVD 

CVI 

CVS 

DATA 

DEF FN 

DEF SEG 

DEFFBL 

DEFINT 

DEFSNG 

DEFSTR 

DELETE 

DIM 

DIR 

ED 

EDIT 

ELLIPSE 

ELSE 

END 

EOF 

EQF 

ERA 

ERASE 

ERL 

ERR 

ERROR 

EXP 

FIELD 

FIELD# 

FILL 

FIX 

FLOAT 

FOLLOW 

FOR 

FRE 

FULLW 

GEMSYS 

GB 

GET 

GET# 

GO 

GOSUB 

GOTO 

GOTOXY 

HEX$ 

IF 

IMP 

INKEY$ 

INP 

INPUT 

INPUT# 

INPUTS 

INSTR 

INTIN 

INTOUT 

KILL 

LEFTS 

LEN 

LET 

LINE INPUT 

LINE INPUT# 

LINEF 

LIST 

LLIST 

LOAD 

LOC 

LOF 

LOGIO 

LPOS 

LPRINT 

LSET 

MERGE 

MID$ 

MKD$ 

MKS$ 

MOD 

NAME 

MEW 

ME XT 

NOT 

OCT$ 

OLD 

ON 

OPEN 

OPENW 

OPTION 

OR 

OUT 
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PCIRCLE 

PEEK 

PELLIPSE 

POKE 

POS 

PRINT 

PRINT# 

PRINT USING 

PTSIN 

PTSOUT 

PUT 

QUIT 

RANDOMIZE 

READ 

REM 

RENUM 

REPLACE 

RESET 

RESTORE 

RESUME 

RETURN 

RIGHT$ 

RND 

RSET 

RUN 

SAVE 

SGN 

SIN 

SOUND 

SPACE$ 

SPC 

SQR 

STEP 

STOP 

STR$ 

STRINGS 

SWAP 

SYSDBG 

SYSTAB 

SYSTEM 

TAB 

TAN 

THEN 

TO 

TRACE 

TROFF 

TRON 

UNBREAK 

UNFOLLOW 

UNTRACE 

USING 

VAL 

VARPTR 

VDISYS 

WAIT 

WAVE 

WEND 

WHILE 

WIDTH 

WRITE 

WRITE# 

XOR 
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Index 


A 

accessory (GEM), 153, 214-215 
ID, 214 
ADDR. IN, 41 
ADDR.OUT, 41 
AES, 23, 148, 150-152 
GEMSYS, 41 

application (GEM), 153, 214 
ASCII, 10 
Atari Corp., 114 
logo, 20 
AUTO folder, 69 
autostarting TOS appl., 86 

B 

base page, 69 
BASIC, 3 

loaders, 57 
loading, 3 
ST commands, 3 
BIOS, 11, 59, 77 
boot ROM, 86 
boot sector, 86 
buffer (printer), 68 

C 

C language, 23, 41, 91 
C compiler, 91 
statements, 155-156 
TOS application, 154-162 
Centronics interface, 11,68 
character size, 28 
CMDLOAD, 86 
color (screen), 106-113 
plotter, 114, 127-130 
printer, 114-115 


255 


Abacus Software 


Atari ST Tricks and Tips 


command line, 69 
COMMAND. PRG, 86 
contrl, 24, 163 
CONTROL, 41 

D 

device handle, 25 
dialog box creation, 182 
digital clock prg, 49, 58 
dir . s, 99 
direc . c, 99 
dispatcher (AES), 150 

E 

Epson, 114 

FX-80, 115, 182, 214 
HI-80, 130 
JX-80, 115 


F 

GB, 41 

GDOS, 23, 149 
GEM, 23, 147-236 
GEMDOS, 59 
GEMDRAW, 105 

GEMSYS, 41 
GLOBAL, 41 

H 

handshake lines (printer), 68 
hardcopy, 54, 105 

color, 113, 114, 127-130 
Hartmann, Sig, 114 

I 

IBM PC, 3, 23 
integer arrays, 47 
intin (VDI), 24, 163 
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INT.IN, 41 
intout (VDI), 24, 163 
INT.OUT, 41 

J 

JSR, 91 

K 

keyboard, 12 

L 

labels, 30 
lines, 32 

endpoints, 35 
thickness, 34 


M 

machine language programs, 45 
(with) C programs, 91 
calling from BASIC, 6 
menu/alarm buffer, 150 
Microsoft BASIC, 3 
MIDI interface, 11-12 
Modula 2, 41 
Motorola 68000, 23, 44 
mouse, 25 
cursor, 25 
position, 37 
MSX computers, 13 
multi-tasking, 148 

N 

norm, device coordinates (NDC), 149 
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P 

Pascal, 41 
patching, 77 
pixels, 28, 106 
plotters, 114, 127-130 
. PRG file, 77 
PRINT, 28-29 
print spooler, 68 
printers, 68 

color, 114-115 
PROTOBT, 86 
ptsin, 24, 163 
ptsout, 24, 163 

R 

RAM-disk, 77 

raster coordinates (RC), 149 

replace mode, 40 

resolution (screen), 19, 106-113 

Resource Construction Set, 182, 184 

resource file (GEM), 153, 182 

RS-232 interface, 1 1 

S 

screen RAM, 45, 58 
coordinates, 149 
screen manager (AES), 151 
shell (AES), 151 

sound generator waveforms (illus), 17 
ST BASIC, 3 

ST BASIC special commands: 
BLOAD, 5 

BREAK, UNBREAK, 4 
BSAVE, 5 
CALL, 6 
CIRCLE, 18 
CLEARW, 21 
CLOSEW, 21 
COLOR, 19 
DEF SEG, 8 
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FILL, 20 

FOLLOW, UNFOLLOW, 3 
FULLW, 20 
GOTOXY, 8 
INKEY$, 9 
INPUT$, 10 
INP, OUT, 11 
LINEF, 18 
OPENW, 21 
PCIRCLE, 19 
PEEK, 7 
PELLIPSE, 19 
POKE, 7 
SOUND, 13 
TRACE, UNTRACE, 5 
TRON, TROFF, 4 
VARPTR, 12 
WAVE, 15 

Star SG- 10, 182, 200, 201 
string variables, 47 
subroutine library (AES), 15 1 
symbolic constants (GEM), 171-235 

T 

text effects, 27-31 
TOS applications, 154 
transparent mode, 40 
. TTP file, 68, 78 

V 

VDI , 23, 148 

functions, 24-40 
calls from BASIC, 26 
vdi SYS, 24, 24-40 
vectors (patched), 77 
vertical blank interrupt, 58 
video RAM, 106, 114 
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W 

window creation, 169-171 
write modes, 40 
workstation (GEM), 163-165 
XOR mode, 40 

Y 

YM-2149, 13 
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Calling All Authors 

We hope you've enjoyed reading Atari ST Tricks and Tips, one of the many 
books in the Abacus ST Reference library. If you have any comments, 
suggestions or technical questions about the material, please let us know. 

If you are a writer of books or articles for the ST and want to work with 
Abacus, a trusted and well-known publisher, please send an outline to us. 
We’ll pay you for published submissions based on length and content or 
based on royalties. 

Here are the guidelines for submissions: 

• Programs should be on 3 1/2” ST formatted micro-floppy. 

• Text should be on 3 1/2" diskette in ASCII format, or 
double-spaced typewritten. 

• A cover letter with your name, address, phone number, 
and short description of your submission 

• Self-addressed stamped envelope 
Send to: 


Abacus Software, Inc. 
Product Development 
Attn: Jim DHaem 
P.O. Box 7219 
Grand Rapids, MI 49510 
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Optional Diskette 



For your convenience, the program listings contained in this book are 
available on an SF354 formatted floppy disk. You should order the diskette 
if you want to use the programs, but don't want to type them in from the 
listings in the book. 

All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 plus 
$2.00 ($5.00 foreign) for postage and handling. 

When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 

Abacus Software 
P.O. Box 7219 
Grand Rapids, MI 49510 


Or for fast service, call ( 616 ) 241 - 5510 . 



REQUIRED READUG 



A fantastic collection of useful 
programs and information for 
the ST. Complete programs 
include: super-fast RAM disk; 
time-saving printer spooler; 
color print hardcopy; plotter 
output hardcopy. Explains 
BASIC commands to access 
GEM using VDISYS and 
GEMSYS and describes 
resource files with examples. 
Manipulate text output (size, 
rotation, bold, etc.) Change 
line types (thickness, end- 
points, etc.) Mixing machine 
language with BASIC or C 
programs. Save software 
dollars with these tricks and 
tips. 250 pages $19.95 


AHATOL. _ 

GEM Programmers' Reference 



A complete guide to 
programming the ST 
using the Graphics 
Environment 
Manager 






For the serious programmer 
in need of detailed inform- 
ation on the GEM operating 
system. Written especially for 
the Atari ST with an easy-to- 
understand format that even 
beginners will be able to 
follow. All GEM routines and 
examples are written in C 
and 68000 assembly 
language. Covers working 
with the mouse, icons, Virtual 
Device Interface (VDI), 
Application Environment 
Services (AES) and the 
Graphics Device Operating 
System. Required reading for 
the serious programmer 
intrested in understanding 
the ST. 450 pages. $19.95 



MACHINE LANGUAGE 

Program in the fastest 
language for your Atari 
ST. Learn the 68000 
assembly language, its 
numbering system, use 
of registers, the structure 
4 important details of the 
instruction set, and use of 
the internal system 
routines. 280pp $19.95 


ST INTERNALS 

Essential guide to learn- 
ing the inside information 
on the ST. Detailed de- 
scriptions of the sound & 
graphic chips, internal 
hardware, the I/O ports, 
system addresses, more. 
Fully documented BIOS 
assembly listing. An indis- 
pensable guide. $19.95 


GRAPHICS & SOUND 

A comprehensive hand- 
book showing you how to 
create fascinating graph- 
ics and suprising music 
and sound from the 
ATARI ST. See and hear 
what sights and sounds 
that you're capable of 
producing from your 
ATARI ST. $19.95 


LOGO 

Take control of your 
ATARI ST by learning 
LOGO— the easy-to-use, 
yet powerful language. 
Topics covered include 
structured programming, 
graphic movement, file 
handling and more. An 
excellent book for kids as 
well as adults. $19.95 


PEEKS & POKES 

Enhance your programs 
with the examples found 
within this book. Explores 
using the different lang- 
uages BASIC, C, LOGO 
and machine language, 
using various interfaces, 
memory usage, reading 
and saving from and to 
disk, more. $16.95 


PRESENTING THE ST 

Gives you an in-depth 
look at this sensational 
new computer. Discusses 
the architecture of the 
ST, working with GEM, 
the mouse, operating 
system, all the various 
interfaces, the 68000 
chip and its instructions, 
LOGO. $16.95 
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P.0. Box 7219 Grand Rapids, Ml 49510 -Telex709-101 - Phone (616) 241-5510 

Optional diskettes are available for all book titles at $14.95 

Call now for the name of your nearesf dealer. Or order directly from ABACUS with your MasterCard VISA or 
Amex card. Add $4.00 per order for postage and handling. Foreign add $10.00 per book. Other software and 
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TRICKS & TIPS 


ST Tricks & Tips is packed with dozens of hints and 
applications for all ST owners. The software described here is 
worth many times the price of this book. Here's a partial list of a 
few of the things covered: 

• using GEM from BASIC 

• combining BASIC and machine language 

• hardcopy to color printer and plotter 

• super-fast RAM disk 

• time-saving print spooler 

• automatically starting TOS applications 

• much more 
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